1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.ShowAVFilmsClick(Sender: TObject);
var x : byte;
    geschrieben : boolean;
begin
label1.caption := ' '; // Labels "leeren"
label2.caption := ' ';
label3.Caption := ' ';

   For x := 1 to n do  
   begin
   geschrieben := false;
       If label1.caption = ' ' then begin   // Wenn Label leer 
       label1.Caption := Film[x].Titel;     // dann beschriften 
       geschrieben := true;                 // verhindert Mehrfacheintragung
       end;
     
       If (label2.caption=' ') AND (geschrieben=false) then begin
       label2.Caption := Film[x].Titel;
       geschrieben := true;
       end;
     
       If (label3.caption=' ') AND (geschrieben=false) then begin
       label3.Caption := Film[x].Titel;
       geschrieben := true;
       end;
       // etc. etc. etc.

    end;

end;                    

1:

(FindComponent('Label1') As TButton).Caption := 'Hello world';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

type Film = Record
              Titel : String;
              Sonstwas : String;
            end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure aLabelClick(Sender: TObject);
  public
    { Public-Deklarationen }
    aLabel : Array[1..20] of TLabel;
    aFilm  : Array[1..20] of Film;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i : byte;
begin
  for i := 1 to 20 do begin
    { Labels erstellen }
    aLabel[i] := TLabel.Create(self);
    with aLabel[i] do begin
      Parent := Form1; // Wichtig !!!
      Name := 'Label'+IntToStr(i); // Nicht so wichtig
      Caption := ''; // Wenn Name vergeben wird sonst dieser als Caption gesetzt
      Left := 8; // Positionierung
      Top := i * 16 - 8; // Positionierung
      Tag := i; // Damit hast die Nummer einfacher als Integer zur Hand
      OnClick := aLabelClick; // Logo. Der Aufruf der OnClick-Prozedur
    end;
  end;

  { Nur zum Test }
  For i := 1 to 20 do aFilm[i].Titel := 'Film Nummer '+IntToStr(i);
end;

procedure TForm1.aLabelClick(Sender: TObject);
begin
  { Beispiel den angeklickten Film anzuzeigen }
  ShowMessage('Du hast folgenden Film ausgewählt:'+#13#10
             +(Sender as TLabel).Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : byte;
begin
  { Füllt die Labels mit den Filmnamen }
  For i := 1 to 20 do begin
    aLabel[i].Caption := aFilm[i].Titel;
  end;
end;