Variablen werden nicht korrekt übergeben...

[jlanger]

Ändere mal :

Delphi-Quellcode:

img.Canvas.MoveTo(pt[1].X,pt[1].Y); 
img.Canvas.LineTo(pt[2].X,pt[2].Y); 

img.Canvas.TextOut(10,50, 
'PT[1]X> '+IntToStr(pt[1].X)+' '+ 
'PT[1]Y> '+IntToStr(pt[1].Y)+' '+ 
'PT[2]X> '+IntToStr(pt[2].X)+' '+ 
'PT[2]Y> '+IntToStr(pt[2].Y));

in

Delphi-Quellcode:

img.Canvas.MoveTo(pt[0].X,pt[0].Y); 
img.Canvas.LineTo(pt[1].X,pt[1].Y); 

img.Canvas.TextOut(10,50, 
'PT[1]X> '+IntToStr(pt[0].X)+' '+ 
'PT[1]Y> '+IntToStr(pt[0].Y)+' '+ 
'PT[2]X> '+IntToStr(pt[1].X)+' '+ 
'PT[2]Y> '+IntToStr(pt[1].Y));