[Yurk@]

Код:

Tabel1.Open;
Table2.Open;
while not Table1.Eof do
begin
if Table2.Locate('Pole1',Table1.FieldsByName('Pole1').asString,[])=True 
  then 
  begin
  Table1.Edit;
  Table1.FieldsByName('Pole2').asString:=Table2.FieldsByName('Pole1').asString;
  Table1.Post;
  end;
Table1.Next;
end;
Table1.Close;
Table2.Close;