1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

type
  TAuftrag = record
    ID : integer;
    Bez : string;
    Mat : real;
    Lohn : real;
    Pic : TImage;
  end;
var
  Auftr: array of TAuftrag;
  pic: TImage;					

1:
2:
3:
4:

setlength(Auftr,1);
pic.Picture:=nil;            // <---- funktioniert
Auftr[0].Pic.Picture:=nil;   // <---- funktioniert nicht
Auftr[0].Pic:=pic;           // <---- funktioniert auch nicht					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TAuftrag = record
    ID : integer;
    Bez : string;
    Mat : real;
    Lohn : real;
    Pic : TPicture; // warum TImage (=Control), TPicture reicht doch
  end;

var
  Auftr: array of TAuftrag;

SetLength(Auftr,1);
Auftr[0].Pic := TPicture.Create;					

1:
2:
3:
4:

SetLength(Auftr,1);  
Auftr[0].Pic := TPicture.Create;
// Dinge damit tun
FreeAndNil(Auftr[0].Pic);