Hast du eine Lösung für das Problem?^^
Aviator hat schon ein Teil der Lösung genannt, man sollte X und Y nicht vertauschen:
Delphi-Quellcode:
for ay:=1 to 9 do
begin
moveto(Round(92+(1-1)*61.7), Round(0 + (ay-1)*33)); // ?89
lineto(Round(92+(9-1)*61.7), Round(0 + (ay-1)*33)); // ?89
end;