FreePascalban hogyan tudok négyzetrácsot rajzolni Line használatával? (Graph unitban)

Elég egyszerűnek tűnik. Egy ciklusban, pl for ciklus, a ciklus változót felhasználva tudod megrajzolni a rácsodat.

pl

for i:=1 to 10 do

begin

line(100,i*10,300,i*10); //ez elvileg rajzol egy 200 hosszú vízszintes vonalat

line(100+(i*10),100,100+(i*10),300); //ez pedig egy 200 hosszú függőleges vonalat

end;

Ki ugyan nem próbáltam de szerintem mennie kellene.