Brauche Hilfe bei einer Übung

[nadery]

Hallo lieber Programmierer,

hab da ein kleines Problem bei einem Programm bin gerade dabei ein Koordinatensystem zu zeichnen und es auf eins drauf zu legen was auf einer Imagedatei bereits gezeichnet ist.
Soweit so gut hab die Koordinatenlinien hinbekommen und bin gerade bei den Skallierungsstrichen/Gitterstrichen die für die X-Achse habe ich bereits hinbekommen und habe gerade Probleme bei der Y-Achse schauts euch mal an und wer nett wen der ein oder andere einen Tipp hätte am besten Quellcode

Delphi-Quellcode:

procedure TForm2.Image1Click(Sender: TObject);
var ax,ay :INTEGER;
begin
image1.Canvas.Pen.Width:=3;
with image1.canvas do
  begin
 //Koordinaten-Linien
  moveto(79,0);
  lineto(79,321);
  moveto(79,321);
  lineto(600,321);

  //Striche x-Achse

  for ax:=1 to 9 do
    begin
      moveto(Round(92+(ax-1)*61.7),0);
      lineto(Round(92+(ax-1)*61.7),321);
    end;

   //Striche y-Achse

   for ay:=1 to 9 do
    begin
      moveto(Round(80+(ay-1)*33),89);
      lineto(Round(321+(ay-1)*33),89);
    end;

Das sieht so aus:

http://i61.tinypic.com/5xifdj.jpg

wie ihr auf dem Foto sehen könnt wiederholt sich das nicht Wieso???

Dankee