1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if DB2.FindKey([Edit1.Text]) then
  { existiert schon und ist jetzt ausgewählt }
 ...
else
begin
  DB2.Append;
  DB2.FieldByName('SpTag').Value := DB1.FieldByName('SpTag').Value;
   ...
  DB2.Post;
end;					

1:
2:
3:
4:
5:
6:

begin
if Table2.FieldByName('Spieltag').Value = Table1.FieldByName('Spieltag').value then
   begin
     ShowMessage ('Der Spieltag wurde bereits gespeichert!');
     exit;
   end;