Uhrzeiten rechnen - Format

[Micha]

Ich habe nochmal ein Problem mit den Uhrzeiten:

Delphi-Quellcode:

  if trim(edt_time.Text) = '' then
    begin
      showmessage('Uhrzeit ist eingabepflichtig!');
      PageControl1.TabIndex := 1;
      edt_time.SetFocus;
      ModalResult := 0;
      exit;
    end
    else
    begin
      Try
        D := StrToTime(edt_time.Text);
      Except
        on e:Exception do
        begin
          ShowMessage(e.Message);
          PageControl1.TabIndex := 1;
          edt_time.SetFocus;
          ModalResult := 0;
          exit;
        end;
      end;
    end;

Irgendwas stimmt mit dem try ... except - Block nicht.

Kann mir bitte wer helfen?