Hilfe bei onExit-Ereignis

[Grolle]

Jetzt komme ich irgendwie nicht weiter. Die Funktion sieht jetzt so aus:

Delphi-Quellcode:

function TForm1.CheckInput : boolean;
begin
  if Edit15.Text = '' then
    begin
      Edit15.Text := '--.00:00';
      Result := false;
    end
  else
    Result := true;
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;
      Result := false;
    end
  else
    Result := true;
except
  on EConvertError do
    Edit16.Text := '000';
  end;
try
  if not (StrToInt(Edit19.Text) in [05..99]) then
    begin
      MessageDlg('  Die SMS-Wiederholzeit muss zwischen 05 und 99 liegen!  ' + #13#10 +
                 '  Bitte korrigieren Sie die Eingabe!  ', mtError, [mbOK], 0);
      ActiveControl := Edit19;
      Result := false;
    end
  else
    Result := true;
except
  on EConvertError do
    Edit19.Text := '05';
  end;
end;

Der Aufruf erfolg so:

Delphi-Quellcode:

    begin
    if (CheckInput = false) then
    begin
      if SaveDialog1.Execute then
        begin ...............

Leider klappt es nicht so wie es soll! (klappt nur im Edit 16)
Wo liegt der Fehler?