Die Linien liegen nicht alle innerhalb von TImage, probiere:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Canvas do
begin
pen.width:=6;
rectangle(0,0,100,100);//rectangle(6,6,100,100)
end;
end;
Mit
rectangle(6,6,100,100)
liegen sie innerhalb