return?

[MrSpock]

Hallo Privateer3000,

der Code von Nils, ist das, was du machen solltest. Eine Änderung schlage ich noch vor, damit der Benutzer auch nein anklicken kann:

Code:

Table2.Open;
abbruch := False;
while Not abbruch and (Table2.FindKey([meld])) do
begin
  if MessageDlg('Name existiert schon.'+#13+' Neuen Namen eingeben?',
             mtConfirmation, [mbYes,mbNo], 0) = mrYes then
      meld:=inputbox('Eingabe','Bitte den Namen eingeben!','')
  else
     abbruch := True;
end;

if abbruch then
begin
   Table2.Close;
   Application.Terminate
end;