Foros Club Delphi - restar horas y devolver la diferencia en tiempo entre ellas

bueno chicos quise restar dos horas que ingreso en unos memos mediante una funcion, para encontrar la hora actual del sistema, bueno una es hora de entrada y otra hora de salida, las cuales resto hora de salida, menos hora de entrada y no me funciona, como puedo encontrar la diferencia en minutos y horas, dijare codigo aqui para que me comprendan mejor:

esta es la funcion por medio de la cual encuentro la hora actual del sistema

Código Delphi [-]function GetLocalT: String;
 var
    stSystemTime : TSystemTime;
 begin
    Windows.GetLocalTime(stSystemTime);
    Result := TimeToStr( SystemTimeToDateTime( stSystemTime ) );
 end;

ahora qui es donde supuestamente tiene que aparecer la diferencia entre las horas, las cuales aun no entiendo porque no me funcionan

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
hora1,hora2,horares:string;
begin
          hora1:=memo1.lines[0];
          hora2:=memo2.Lines[0];
          horares:=timetostr(strtotime(hora2)-strtotime(hora1));
          dbedit1.Text:=horares;
end;

por favor si alguien me puede ayudar se lo agradeceria muchisimo.
de antemano gracias por su amabilidad