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

procedure TForm1.Button1Click(Sender: TObject);
var
MyLabel: TLabel;
begin
MyLabel := TLabel.Create(Form1);
MyLabel.Caption := 'Mein eigenenes Label.';
MyLabel.Top := 100;
MyLabel.Left := 150;
MyLabel.Parent := Form1;
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
MyLabel: TLabel;
begin
with MyLabel do
  begin
  Create(Form1);
  Caption := 'Mein eigenenes Label.';
  Top := 100;
  Left := 150;
  Parent := Form1;
  end;
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
MyLabel: TLabel;
begin
MyLabel := TLabel.Create(Form1);
with MyLabel do
  begin
  Caption := 'Mein eigenenes Label.';
  Top := 100;
  Left := 150;
  Parent := Form1;
  end;
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var x,y,breite:integer;//Position des Labels
MyLabel: TLabel;
begin
MyLabel := TLabel.Create(Form1);//das Label muss ja erstma erzeugt werden^^
with MyLabel do
  begin
  Caption := 'Mein eigenenes Label.';
  Top := y;
  Left := x;
  width:=breite;//oder autosize:=true;
  Parent := Form1;//dat dingen soll ja auf Form1 erscheinen....n bissl OOP
  end;
end;                    

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

function NewLabel(LblForm: TForm; LblCaption: TCaption; LblTop: Integer; LblLeft: Integer): TLabel;
begin
Result := TLabel.Create(LblForm);
with Result do
  begin
  Caption := LblCaption;
  Top := LblTop;
  Left := LblLeft;
  Parent := LblForm;
  end;
end;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
var
MyLabel: TLabel;
begin
MyLabel := NewLabel(Form1, 'Mein eigenes Label', 100, 100);
end;