*Neue probleme mit canvas: y-achse,

[Lupusmagnus]

sry für den doppelpost,aber mir ergibt sich leider wieder ein weiteres problem,ich möchte die x-achse gerne mit strichen einteilen,und bei jedem 5. strich eine zahl haben,also 5,10,15 usw.
bis jetzt gelang es mir das der 5. strich größer als die anderen ist und ich darunter etwas schreiben kann,allerdings verstehe ich nicht wie ich es anstellen soll,das die zahl immer um 5 erhöht wird,hier erst einmal mein ansatz:

Delphi-Quellcode:

//Beschriftung
for h:=1 to Width-15 do ;
xt:=26 ;
xab:=f div (xt+1) ;
for i:=1 to xt do
 begin
  if i mod 5=0 then
begin
  Font.color:=clblack ;
  Font.size:=10 ;
  Image1.Canvas.Textout(x0+i*xab,y0+L+10,'5') ;
end ;
end;

ein weiteres problem hab ich generell mit der skalierung der y-achse,hier war mein ansatz

Delphi-Quellcode:

//Skala y-achse
 q:=0 ;
for i:=y0 to ymax  do
 begin
  q:=q+50 ;
  Image1.Canvas.MoveTo(x0+q,y0-10) ;
  Image1.Canvas.LineTo(x0+q,y0+10) ;
 end;

b:=0 ;
for i:=y0 to ymax    do
 begin
  b:=b+10 ;
  Image1.Canvas.MoveTo(y0+b,x0-5) ;
  Image1.Canvas.LineTo(y0+b,x0+5) ;
 end;

vllt. hat wieder jemand lösungs vorschläge,wäre dankbar!