integer überprüfen

[Nisbo]

Moin Moin

Ich bastel gerade an einer Umwandlung der UNIX TimeStamp ins Normale Datum, das Funkioniert auch soweit ganz gut nur wenn der in Edit1 eigegebene Wert kein gültiger ingeger mehr ist dann Bekomme ich im programm die entsprechnde Fehlermeldung, möchte da aber gerne meine eigene Fehlermeldung ausgeben.

Bei Google habe ich bis jetzt noch nichts gefunden, ußer die Gültigkeitsbereiche aber das möchte ich ja gerne überprüfen

momentan schau das ganze so aus:

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject);
var
  hh, mm, ss  : cardinal;
  UnixZeit    : integer;
  Ausgabe     : integer;
  s           : string;
  t           : string;
  
const
  FirstOf1970 = 25569;

begin
   if Edit1.Text = '' then Edit1.Text := '0';

   UnixZeit   := strtoint(Edit1.Text);

   if UnixZeit < 0 then
      begin UnixZeit   := 0;
            Edit1.Text := '0';
      end;
      
   if UnixZeit > 2147483647 then
      begin UnixZeit   := 2147483647;
            Edit1.Text := '2147483647';  // 2147483647
      end;
   
   hh         := UnixZeit mod 86400;
   mm         := hh mod 3600;
   hh         := hh div 3600;
   ss         := mm mod 60;
   mm         := mm div 60;
   Ausgabe    := (UnixZeit div 86400) + FirstOf1970;
   t          := timetostr(EncodeTime(hh, mm, ss, 0));
   s          := FormatDateTime('dddd", " dd. ' +  'mmmm yyyy "-" ' + t + ' "Uhr"',Ausgabe);
   Edit2.Text := s;
end;

das Problem wird wohl in

UnixZeit := strtoint(Edit1.Text);

liegen, also bei der Konvertierung

Hat jemand nen Tipp für mich ?