Hvordan !??!

private
  counter: Integer;
  lab: array of TLabel;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Counter := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Counter := Counter+1;
  SetLength(lab, Counter);
  lab[Counter] := TLabel.Create(FlatGroupBox3);
  lab[Counter].Parent := FlatGroupBox3;
  lab[Counter].Caption := 'Test';
  lab[Counter].Left := 20;
  lab[Counter].Top := Counter*20;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  I: Integer;
begin
  for I := 1 to Counter do
    lab[I].Free;
end;


Jeg har altså ikke testet det, bare skrevet løst, så hvis det ikke virker, please don't kill me!!! :)

//hermandsen

Har selv klaret det:
procedure TMainForm.FlatSpeedButton1Click(Sender: TObject);
var
  Panel: TPanel;
  Text: TLabel;
begin
with FlatGroupBox3 do
begin
  Panel := TPanel.Create(ScrollBox1);
  Panel.Parent := ScrollBox1;
  Panel.Caption := '';
  Panel.Align := alTop;
  Panel.Height := 20;
  Text := TLabel.Create(Panel);
  Text.Caption := 'Test';
  Text.Parent := Panel;
  Text.Align := alClient;
end;
end;

glemte svar...Hermandesen du får 15 point...Så er det da ikke spildt arbejde :)

Hehe... Takker! :)

np :)