اجعل شاشة برنامجك ترقص

سلام

هل استخدمت الياهوو ماسنجر من قبل ,

بعد أن تشغل شريط الكاسيت عالدبكة المصرية , قم بوضع الكود التالى داخل زر على الفورم ,

procedure TForm1.Button1Click(Sender: TObject);

var

N : Integer;

TL,TT : Integer;

begin

TL := Left;

TT := Top;

for N:=1 to 40 do begin

Left:= (TL-10) + (Random(20));

Top := (TT-10) + (Random(20));

end;

Left := TL;

Top := TT;

end;

وشكرا