сровнение времеи

[Вовкин]

Доброе время суток!
как сравнить время и получить ответ в миллисекундах

есть

constructor Tcustomer.Create(const CustomerNomer :integer;
                             const CustomerPotok :integer;
                             const CustomerVremya :double);
begin
 self.CustomerNomer:= CustomerNomer;
 self.CustomerPotok:= CustomerPotok;
 self.CustomerVremya:= CustomerVremya;
end;




procedure TForm1.FormCreate(Sented: TObject);
var
  customer : TCustomer;

begin
if z=4 then
  Begin
   z:=0;
   schet:=schet+1;
   if mylist.Count > 0 then
    begin
     DlinOch:=DlinOch+mylist.Count;
     PocObr:=PocObr+1;
     P:=
     myList.Delete(0);
    end;
  end
 else
  if (r>0) and (r<4)  then
   begin
    w:=w+1;
    myList.Add(TCustomer.Create(w,r,now));
   end;

end;

надо сравнить 3-ий элемент первой строки mylist с текущей датой. Получить результат в миллисекундах

[evg_m]

F1 and Datetime routines or MilliSecond ==