Schau dir mal die
LineTo und die
MoveTo Procedure an.
Du musst natürlich auch entsprechend für die Y-Achse die Koordinaten von Y verändern und nicht von X.
Delphi-Quellcode:
for ay:=1 to 9 do begin
moveto(89, Round(80+(ay-1)*33));
lineto(89, Round(321+(ay-1)*33));
end;
Ob die Werte jetzt so stimmen weiß ich natürlich nicht. Aber der zweite Parameter der Funktion muss jeweils geändert werden bei Y und nicht der erste.