[жекаизжека]

Код:

while not SimpleDataSet1.Eof
 do begin
    AdoTable1.Append;
    for i := 0 to SimpleDataSet1.FieldCount - 1
    do try
        AdoTable1.Fields[i].Value := SimpleDataSet1.Fields[i].Value;
       except
        AdoTable1.Fields[i].Value := null;
       end;
    AdoTable1.Post;
    SimpleDataSet1.Next;
SimpleDataSet1.CommandText:='Delete from MyTable where id';
    end;