صور متعاقبة على الفورم

إذا فرضنا الصورة الأولى adnan1 والثانيه adnan2 نستطيع أن نكتب

rocedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=1 to 2 do
begin
image1.Picture.LoadFromFile('c:\adnanfile\adnan'+inttostr(i)+'.jpg');
end;
end

لكنها ستكون سريعه جدا ولن تلحظها ,

لذلك يفضل إستخدام Timer ووضع الInterval حوالي 100 أو أكثر

(كأنك تريد ان تعمل صورة متحركه أو ماشابه )

ملاحظة بإمكانك إضافه تعليمه قد تفيد ولك لها عيب أنها تجمد البرنامج كله عند الإنتظار وهي Sleep ضعها بعد السطر

image1.Picture.LoadFromFile('c:\adnanfile\adnan'+inttostr(i)+'.jpg');

sleep(200)

ضعها بعد

السلام عليكم اعتقد ان فكرة الtimer افضل من الناحية العملية وشكرا