kann es sein, dass du Rundungsfehler hast?
bei
Delphi-Quellcode:
const
Size = 5;
X, Y, S: Integer;
begin
...
S := (Size div 2);
...
end;
würde normalerweis 2,5 rauskommen, was aber nicht in einen Integer passt.
Vielleicht hilft es, wenn du die Berechnungen mit Floats machst und dann auf Integer rundest für die Canvas-Befehle
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<