كيف اقوم بجعل محتوى النص في edit تلقائيا بالاعتماد على timer

[haroun03]

السلام عليكم
عندي edit و listbox
محتوى الedit يتغير تلقائيا و يأخذ عناصر ال Listbox يعني كل نصف ثانية تتغير خاصية text له و تأخذ القيمة الموجودة في listbox

[Agmcz]

وعليكم السلام

كود :

procedure TForm1.Button1Click(Sender: TObject); var dw: DWORD; begin for dw := 0 to ListBox1.Items.Count - 1 do begin ListBox1.Selected[dw] := True; Edit1.Text := ListBox1.Items[dw]; Sleep(500); end; ListBox1.Selected[dw] := False; end;

[haroun03]

شكرا لك اخي الكريم