Labeltext weitergeben

[Luckie]

Willst du so was machen:

Unit von Form1:

Code:

uses ..., Unit2, ...;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := 'Label1 - Form1';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

Unit von Form2

Code:

procedure TForm2.FormCreate(Sender: TObject);
begin
  Label1.caption := Form1.Label1.Caption;
end;