Копирование поля из одной таблицы в другую(ADO)

procedure TForm1.Button3Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно хотите удалить запись :'
+DataModule1.ADOTable1DSDesigner.Asstring+' '+DataModule1.ADOTable1DSDesigner2.Asstring
+' '+DataModule1.ADOTable1DSDesigner3.Asstring), 'Внимание!!!',
MB_OKCANCEL)=id_OK then
begin
DataModule1.ADOTable1.Delete;
end;
end;

Procedure TForm1.IDSort(Table:TADOTable);
var I:integer;
Begin
I:=0;
With Table Do Begin
First;
  While Not EOF Do Begin
    Edit;
    Fields[0].Value:=I;
    post;
    I:=I+1;
    Next;
  End;
End;
End;

Function TForm1.SeachFreeID(Table:TADOTable):Integer;
Var
I:Integer;
EndSeach,Yes:Boolean;
begin
SeachFreeID:=-1;
EndSeach:=True;
I:=0;
 
 
With Table Do Begin
    while EndSeacH Do Begin
    First; 
    Yes:=True;
      While Not EOF Do Begin
        if Fields[0].Value = I Then Begin
        Yes:=False;
        Break;
        End Else Begin
        Next;
        End;
      End;
    If Yes Then Begin EndSeach:=False;  SeachFreeID:=I; End;
    If EndSeach Then I:=I+1;
    End;
End;
End;

if Length(FindEdit.Text)>0 then
  Datamodule1.LgotaTable.Filtered:=true
else
  Datamodule1.LgotaTable.Filtered:=false;
 
Datamodule1.LgotaTable.Filter:='Surname>'''+FindEdit.Text+'''';

procedure TDataModule1.LgotaTableFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
Accept:=false;
if copy(LgotaTableSurname.AsString,1,Length(Form1.FindEdit.Text))=
  Form1.FindEdit.Text then
  Accept:=true;
end;