C++ DateTime in Delphi TDateTime umwandeln.

[Andreas L.]

Ich bekomme als Ergebnis trotzdem -1456136888. Der Code meiner Test-App:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var
  datetime: TDateTime;
begin
  WebKitTimetodatetime(StrToInt64(Edit1.Text), datetime);
  DateTimePicker1.DateTime := datetime;  //in datettime umwandeln funktioniert
end;

procedure TForm4.Button2Click(Sender: TObject);
var
  datetime: TDateTime;
begin
  datetime := DateTimePicker1.DateTime;
  FormatDateTime('yyyy-mm-dd hh:nn:ss,zzz', DateTime);
  Edit1.Text := IntToStr(DateTimeToWebKitTime(DateTime));
end;

Was mache ich falsch?