Delphi time to timestamp

The code is as follows

function Gettimestamp(dateTimeStr:String): string;
var
 unix_time:int64;
begin
    unix_time:=Datetimetounix( IncHour( strToDateTime(dateTimeStr),-8) );  // reduce 8 Hours 
    Result := inttostr(unix_time);
end;