restar horas y devolver la diferencia en tiempo entre ellas

[douglas]

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

[[Lepe]]

Para realizar operaciones con horas, es necesario que uses el tipo TDateTime (formato de fecha y hora), de lo contrario obtendrás valores incorrectos.

Por ejemplo:
23:00 - 01:00 = 22:00 (¡¡22 horas de diferencia!!)
01/01/2007 23:00 - 02/01/2007 01:00 = 2 horas de diferencia

Usa las funciones MinutesBetween / HoursBetween de la unidad DateUtils

Saludos