Variablen werden nicht korrekt übergeben...

[NeoXan]

Hier wird ein Array übergeben...
pt[1].X & pt[1].Y
stimmen auch...aber pt[2] ist totaler hunmbug (also zahlen der was-weiß-ich wie viel stellig)
Was mache ich falsch?

Delphi-Quellcode:

type
 CPoints = record
  X : Integer;
  Y : Integer;
 end;

var
 THEpt  : array[1..2] of CPoints;

 THEpt[1].X := 100;
 THEpt[1].Y := 280;
 THEpt[2].X := 10;
 THEpt[2].Y := 0;
 DrawLines(THEpt,imgMain);

procedure DrawLines(pt: array of CPoints; img: TImage);
begin
 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));
end;