كيف اظهر أن يظهر 1 لكل 1000 باستخدام مكون Timer

[Programmerstn]

السلام عليكم ورحمة الله وبركاته

أخواني أنا كنت أريد قبلا الوقت المستغرق  للTimer و الحمدالله  هذا الكود نجح معي 

كود :

procedure TForm1.Timer1Timer(Sender: TObject); begin TimeNumber := Timer1.Interval; end; procedure TForm1.Timer2Timer(Sender: TObject); begin TimeNumber := TimeNumber + Timer2.Interval; Label1.Caption := IntToStr(TimeNumber); end;

ولكن أريد أن يظهر 1 لكل 1000 بمعنى من ملي ثانيه الى ثانيه 

وشكرا

[bassem_43]

السلام عليكم
الحل بسيط :اقسم الوقت المتحصل عليه على 1000 والناتج ضعه في Label1.Caption ليصبح كودك هو :

procedure TForm1.Timer2Timer(Sender: TObject);
begin
TimeNumber := TimeNumber + Timer2.Interval;
Label1.Caption := IntToStr(TimeNumber/1000);
end;

[Programmerstn]

السلام عليكم
الحل بسيط :اقسم الوقت المتحصل عليه على 1000 والناتج ضعه في Label1.Caption ليصبح كودك هو :

procedure TForm1.Timer2Timer(Sender: TObject);
begin
TimeNumber := TimeNumber + Timer2.Interval;
Label1.Caption := IntToStr(TimeNumber/1000);
end;

شكرا أخي لكن مايضبط شوف ايش يطلع

[Error] Unit1.pas(41): There is no overloaded version of 'IntToStr' that can be called with these arguments

---

شكرا أخي تم حل المشكلة باستبدال الداله IntToStr(); الى الداله FloatToStr(); لسبب أن العملية قسمة

شكرا لكم