Button verschwindet nach LabelCreate

[Dakuba]

Guten Morgen alle zusammen!

Also ich möchte nach Eingabe einer Zahl im TEdit je nach Anzahl labels erstellen. Also das klappt auch alles wunderbar nur wenn sie erstellt sind verschwindet der Button...Das versteh ich nicht so recht hoffe ihr könnt mir helfen!

Delphi-Quellcode:

procedure TForm1.BtnEinlesenClick(Sender: TObject);
var lab: TLabel;
begin
 For i:=1 To StrToInt(edtanzahl.Text) Do Begin
 zaehler:=zaehler+20;
   Lab.Visible := true;
   Lab.Parent := GroupBox1;
   Lab:= TLabel.Create(GroupBox1);
   Lab.Top:= 20+zaehler;
   Lab.Left:= 14;
   Lab.Caption:= IntToStr(i)+'. ';
 end;
end;

[Sharky]

Hai Dakuba,

Du solltest bevor Du auf lab zugreiffst dieses erzeugen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 lab: TLabel;
 i : Integer;
 zaehler : Integer;
begin
  zaehler := 5;
  For i:=1 To StrToInt(edtanzahl.Text) Do
  Begin
    zaehler:=zaehler+20;
    Lab:= TLabel.Create(GroupBox1); // Erst erzeugen
    Lab.Visible := true;  // Dann damit arbeiten
    Lab.Parent := GroupBox1;
    Lab.Top:= 20+zaehler;
    Lab.Left:= 14;
    Lab.Caption:= IntToStr(i)+'. ';
  end;
end;

[Dakuba]

Hm...das war dumm von mir danke für die schnelle Antwort! Klappt jetzt alles!