var
  pan : TPanel;
begin
  pan          := TPanel.Create(self);
  pan.Name := 'Panel1';
  pan          := TPanel.Create(self);
  pan.Name := 'Panel2';
  pan          := TPanel.Create(self);
  pan.Name := 'Panel3';
  pan          := TPanel.Create(self);
  pan.Name := 'Panel4';
end;

begin
  FindComponent('panel1').Free;
  FindComponent('panel2').Free;
  FindComponent('panel3').Free;
  FindComponent('panel4').Free;
end;

@unggulresearch: maaf, q mw ngobrol2 dgn mas kofa, ada urusan bisnis...btw bs ta no hp atau contact yang bs saya hubungi?

@DelphiExpert:

@unggulresearch: maaf, q mw ngobrol2 dgn mas kofa, ada urusan bisnis...btw bs ta no hp atau contact yang bs saya hubungi?

Mungkin lebih cocok kalo lewat PM / japri Gan :)

@unggulresearch:

@DelphiExpert: [quote:7fef41c6fb="unggulresearch"]maaf, q mw ngobrol2 dgn mas kofa, ada urusan bisnis...btw bs ta no hp atau contact yang bs saya hubungi?

Mungkin lebih cocok kalo lewat PM / japri Gan :)[/quote:7fef41c6fb] brgx mas delphiexpert mw, q ada side job mas..lumayan fee nya ?? atoo q minta tlg carane bt hub mas kofa?

PanelBaru := TPanel.create(panel1);
  with PanelBaru do
  begin
    Top    := 2;
    Width  := 60;
    height := 50;
    Left   := lleft;//Width * (panel1.ControlCount);
    Parent := panel1;
    color := clBlack;
    Caption := 'Panel'+ inttostr (panel1.ControlCount);
    name := caption;
    BevelOuter := bvnone;
  end;

repeat
          panel1.Controls.Destroy;
     until panel1.ControlCount-1 < jumlahkontrol;

@unggulresearch:

@DelphiExpert: [quote:2f88631884="unggulresearch"]maaf, q mw ngobrol2 dgn mas kofa, ada urusan bisnis...btw bs ta no hp atau contact yang bs saya hubungi?

Mungkin lebih cocok kalo lewat PM / japri Gan :)[/quote:2f88631884] brgx mas delphiexpert mw, q ada side job mas..lumayan fee nya ?? atoo q minta tlg carane bt hub mas kofa?