got longint expected ansistring

[Nisbo]

Habe bereits bei Google gesucht aber da gibt es nur 1 Seite und die ist französisch
http://www.developpez.net/forums/viewtopic.php?p=413796

glaube ich zumindest

Was ich vorhabe ist die UNIX TimeStamp aus einem Datum zu berechen, habe dazu mir eine Anleitung aus einem anderen Board geschnappt (weiß nicht ob link hier erlaubt ist) und die ein wenig umgebastelt und verkürzt so das dies rauskam

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
var
   Result: integer;
   iTime:  integer;
   HumanStamp: tDateTime;
   hh, mm, ss, ms: word;

const
  FirstOf1970 = 25569;       //    [s] seit 30.12.1899 bis 01.01.1970 (WinZeit -> UnixZeit)
  OneDay      = 86400;       // in [s]
  OneHour     = 3600;        // in [s]
  OneMinute   = 60;          // in [s]


begin
  //HumanStamp := '01.01.2005';
  Result     := 0;
  DecodeTime(HumanStamp, hh, mm, ss, ms);

  { Tage seit 1.1.1970 in Sekunden }

  iTime := (Trunc(HumanStamp) - FirstOf1970) * OneDay;

  { Stunden und Minuten und Sekunden aufaddieren }

  iTime := iTime + (hh * OneHour);
  iTime := iTime + (mm * OneMinute);
  iTime := iTime + ss;

  if iTime < 0 then iTime := 0;

  Result := iTime;
  Edit1.Text := iTime;
  //  ShowMessage ('UNIX-Datum: ' + iTime +' ');

end;

wenn ich das jetzt so mache dann bekomme ich diesen Fehler:
got longint expected ansistring

ich weiß da ist noch so einiges falsch, aber möchte wenigstens erstmal nen ergebnis bekommen
und jetzt lacht mich aus, in der anleitung war das ganze eine Funktion, leider weiß ich nicht wie man sowas einbaut (ja ja gelächter ) deshalb habe ich das etwas umgebaut