Mi lehet itt a hiba?

Delphiben tanulok programozni, teljesen alap szinten, és mivel holnapra fel kell készülnöm a tesztre otthon gyakorolom a ciklusokat. Viszont találtam egy hibát, és nem tudok rájönni, hogy mi lehet. A For to do-s sorban mutatja a hibát... :

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

randomize

For i:=1 to 10 do

begin

Image1.Canvas.Font.Color:=RGB(random(225), random(225), random(225));

Image1.Canvas.TextOut('Tél'), random(580), random(360);

Image1.Canvas.Font.Height:=random(50+50);