so das der eintrag den funktionierenden source drin hat
Delphi-Quellcode:
if fMain.TB1.Locate('Seriennummer', EdtSerial.Text, []) = False then
begin
fMain.DBCom.CommandText := 'INSERT INTO .....';
fMain.DBCom.Execute;
end
else begin
ShowMessage('Seriennummer ist schon vorhanden!');
end;
danke nochmal an alle