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;