Sammenlign 2 tidspunkter

var
    sd1,sd2 : string;
  d1,d2 : TDateTime;
begin
    sd1:='06-09-2009 21:44:52';
  sd2:='06-09-2009 21:44:51';

  d1:=StrToDateTime(sd1);
  d2:=StrToDateTime(sd2);

  if d1<d2 then
      Showmessage('d1 er før d2')
  else if d1>d2 then
        Showmessage('d1 er efter d2')
  else
      Showmessage('d1 og d2 er ens');
end;

Det virker :D du får mange tak