Ist Dir schon mal aufgefallen, dass dein Sourcecode nur so von Zahlen wimmelt?
Hier ein Beispiel:
Delphi-Quellcode:
i:=10 {<=};
while i<width-40{<=} do
begin
G.canvas.Font.size:=5{<=};
if (i<x-20{<=}) or (i>x+20{<=}) then G.canvas.TextOut(i,Y-10{<=},FloatToStrf(PixelsToXY(i,i).x,fffixed,10,2));
i:=i+50{<=};
end;
Das führt natürlich zu einer schlechten Codequalität.
Ersetze mal alle diese Zahlen durch Konstanten.
Manche Zahlen sollten sogar durch Variablen ersetzt werden.
Anstatt die Achsen-Beschriftung mit fester Schrittgrösse 5 zu zeichnen,
wäre es doch besser den Font (inkl. Name, Style,...) von aussen vorzugeben.