SecondsBetween

[fidel]

Mira a ver así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  minutos, segundos, segundosResto: Int64;
  momento1, momento2: Tdatetime;
begin
  momento1 := strtodatetime('20/10/07 22:30:10');
  momento2 := now;
  segundos := SecondsBetween(momento1,momento2);
  minutos := segundos div 60;
  segundosResto := segundos mod 60;
  Edit1.Text := IntToStr(minutos) + ' minutos y ' + IntToStr(segundosResto) + 'segundos';
end;