Динамическое создание paintbox-a.

[blackstersl]

Привет всем. Вопрос: как по нажатии кнопки создать новый paintbox? Спасибо.

[beemoto]

procedure TForm1.Button1Click(Sender: TObject);
var i,n,t: integer;
cb: Tpaintbox;
begin
try
n:=StrToInt(Edit1.Text);
except
ShowMessage('Ошибка в заданном числе');
exit;
end;
t:=50; //например
for i:=1 to n do
begin
cb:=Tpaintbox.Create(Self);
(cb as Tpaintbox).Name:='ComboBox'+IntToStr(i);
(cb as Tpaintbox).Parent:=Form1;
(cb as Tpaintbox).Left:=200; //например
(cb as Tpaintbox).Top:=t+30*(i-1); //например
(cb as Tpaintbox).Enabled:=True;
Application.ProcessMessages;
end;
end;