[Kapitoshka438]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanel;
begin
  Panel := TPanel.Create(Self);
  Panel.Parent := Self;
  Panel.Left := ...;
  Panel.Top := ...;
  Panel.Width := ...;
  Panel.Height := ...;
end;