[Casimiro Notevi]

Desde delphi podrías hacer algo así,:

Código SQL [-]
 DMdoc.QRlineas.Close;
 DMdoc.QRlineas.SelectSQL.Text := 'select first 10 from tbLineas';
 DMdoc.QRlineas.Open
 while not DMdoc.QRlineas.Eof do
     DMdoc.QRlineas.Delete;