uses TOracleDataSet,the sql :
for I := iMax + 1 to iMax + 10 do
SQLText := SQLText + 'insert into pactitem (no, title, id, pid) values ('
+ IntToStr(I) + ', ' + #39 + 'For a test' + #39 + ', '
+ IntToStr(I) + ', ' + '-1' + ');' + #13;
with LoginInf.MySQLPlus do
begin...