Bin mir nicht sicher (auch weil der Picture-Container mein geliebter Feind ist), aber
Delphi-Quellcode:
// statt
fields[x,y].pic.picture.assign(piclist[0,0]);
// müsste es nicht so aussehen?
fields[x,y].pic.picture.bitmap.assign(piclist[0,0]);
piclist enthält ja TBitmap, nicht TPicture.
Was mir noch aufgefallen ist, aber nichts mit dem Problem zu tun hat:
Delphi-Quellcode:
// Wenn Du folgende kleine Procedure baust:
procedure SetPicPos(Field : Tfield; Top, Left : Integer);
begin
Field.picpos.top := Top;
Field.picpos.left:= Left;
end;
// kanst Du statt dem
with fields[1,1] do //erste Spalte
begin
picpos.top:=21;
picpos.left:=212;
end;
// Das schreiben
SetPicPos(fields[1,1], 21, 212);
dadurch würde die eine Funktion erheblich schrumpfen.