Hilfe bei onExit-Ereignis

[sh17]

etwas so

Delphi-Quellcode:

function TForm1.CheckInput : boolean;
begin
  Result := false;

  if Edit15.Text = '' then
  begin
    MessageDlg('fehler bla...
    Edit15.Text := '--.00:00';
    exit;
  end

  try
  if (StrToInt(Edit16.Text)< 200) and not (StrToInt(Edit16.Text)= 0)then
    begin
      MessageDlg('  Guthaben muss zwischen 200 und 999 oder bei 0 liegen!  ' + #13#10 +
                 '  Bitte korrigieren Sie die Eingabe!  ', mtError, [mbOK], 0);
      ActiveControl := Edit16;
      exit;
    end;
except
  on EConvertError do begin
    MessageDlg('fehler bla...
    ActiveControl := Edit16;
    exit;
  end;
  end;

  ... usw.

  Result := true;

end;