Delphi!!!!!!!!!!!!!十万火急！！！！

table里存的记录是：
比如字段a(票号自),b(票号至),c(票量)，d（金额）,有两条记录
1，3，3，30.00
13，14，2，15.00
我想打印报表
怎么打印成  
1，1，1,30.00
2，2，1,30.00
3，3，1,30.00
13，13，1,15.00
14，14，1,15.00相当于把1-3和13-14都拆了，但是不改变数据库里的记录