try except in Funktion funktioniert nicht

[Mazel]

Hallo,

ich habe eine Funktion, die einen DateTime in Unix umwandelt. Dazu nutze ich zwar DateTimeToUnix aus der Unit DateUtils, aber ich habe dies, um nicht immer wieder zu schreiben, in einer anderen Funktion gelagert, nur so funktioniert das try except nicht. Schreibe ich das jedesmal in das OnChange Ereignis, dann funktioniert es, ich würde es aber gern einfacher machen in dem ich es in eine von mir erstellte Funktion lagere:

Delphi-Quellcode:

// so gehts nicht:
function DateTimeToUnixTime(DateTime: TDateTime): String;
begin
  try
    Result := IntToStr(DateTimeToUnix(DateTime));
  except
    Result := IntToStr(DateTimeToUnix(0));
  end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit2.Text := DateTimeToUnixTime(StrToDateTime(Edit1.Text));
end;


// so gehts:
procedure TForm1.Edit1Change(Sender: TObject);
begin
  try
    Edit2.Text := IntToStr(DateTimeToUnix(StrToDateTime(Edit1.Text)));
  except
    Edit2.Text := IntToStr(DateTimeToUnix(0));
  end;
end;

Weis jemand Rat?

Gruß
Mazel