كيف يمكن جعل الوقت يمشي تنازلي

[Dr.MOT]

السلام عليكم
أخ musvc الكود الذي وضعت لا يظهر العد التنازلي وإنما 30 ز 29 فقط !!
لأنك وضعت في تآيمر ( Label1.Caption := 30 )
فهو يعين القيمة 30 عند كل مرة لكن اخي جرب هذا الكود :

PHP كود :

procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Label1.Caption := IntToStr( StrToInt(Label1.Caption)-1 )  ;
end; 


بارك الله فيكم جميعا !