begin
if (Table2.locate('campo1',edit#.Text,[])) and
(Table1.Locate('campo1',edit#.Text,[])) then begin
Table1.Edit;
Table2.Edit;
Table1.FieldValues['campo1'] := trim(edit#.Text);
Table2.FieldValues['campo1'] := trim(edit#.Text);
Table1.post;
Table2.Post;
ShowMessage('Datos Modificados con Éxito');
end
else ShowMessage('Error al Modificar Datos');
end;