Zuweisung eines Bildes macht Probleme

[KahPee]

Das hier funktioniert noch nicht:
Deklaration und Prozdur:

Delphi-Quellcode:

 procedure SetPicPos(Field : Tfield; Top, Left : Integer);


implementation

Uses Unit2;


{$R *.DFM}
procedure SetPicPos(field : Tfield; Top, Left : Integer);
begin
  Field.picpos.top := Top;
  Field.picpos.left:= Left;
end;

Aufruf:

Delphi-Quellcode:

SetPicPos(fields[1,1], 21, 212);    //erste Spalte
SetPicPos(fields[1,2], 107, 212);
SetPicPos(fields[1,3], 193, 212);
SetPicPos(fields[1,4], 280, 212);
SetPicPos(fields[1,5], 367, 212);
SetPicPos(fields[1,6], 453, 212);
SetPicPos(fields[1,7], 539, 212);
//usw.

Abgesehen von der Frage noch die Frage wie sich das ganze andere mit den Bildern zuweisen lösen lässt. Eine Alternative Lösung würd eich utner Umständen auch in Betracht ziehen.