Grafik in Delphi

[jfheins]

Probier mal

Delphi-Quellcode:

with image1.canvas do 
for i:=1 to 100 do 
begin 
pixels[i,50]:=clred; 
Application.Proccessmessages;
sleep(50); 
end;