SecondsBetween

[gabbo]

//uses
// todos los anteriores + DateUtils;

// hay que agregar 'DateUtils' en el 'uses', x eso no reconocia la funcion SecondsBetween...

procedure TForm1.Button1Click(Sender: TObject);
var
minutos, segundos, segundosResto: Int64;
momento1, momento2: Tdatetime;
begin
momento1 := strtodatetime('26/10/07 11:00:00');
momento2 := now;
segundos := SecondsBetween(momento1, momento2);
minutos := segundos div 60;
segundosResto := segundos mod 60;
Edit1.Text := IntToStr(minutos) + ' minutos y ' + IntToStr(segundosResto) + 'segundos';
end;