procedure TForm.CrearMemo(Padre : TWinControl);
var
m : TMemo;
begin
m := TMemo.Create(Self);
with m do
begin
Parent := Padre;
Align := alClient;
end;
end;
procedure TForm.CrearPaneles(Padre : TWinControl);
var
i : integer;
p : TPanel;
begin
for i := 1 to 5 do
begin
p := TPanel.Create(Self);
with p do
begin
Parent := Padre;
Top := 100;
Left := 100 * i;
Width := 100;
Height := 100;
end;
CrearMemo(p);
end;
end;
begin
[...]
CrearPaneles(PanelObservacion);
[...]
end.