Скругление программно созданных объектов

[Snake_ua]

Доброго времени суток.
Подскажите, как решить следующую задачу

procedure TForm1.BitBtn1Click(Sender: TObject);
var i, j : integer;
begin
  for i := 1 to 3 do
    for j := 1 to 11 do
      with TPanel.Create(Self) do
      begin
        Caption := Format ('%d %d', [i, j]);
        ParentBackground:=False;
        Top     := 50 + 73 * i;
        Left    := 50 + 73 * j;
        Width   := 70;
        Height  := 70;
        OnClick := PanelClick;
        Parent  := Self;
      end;
end;

procedure TForm1.PanelClick (Sender : TObject);
begin
  ShowMessageFmt ('Нажата кнопка %s', [TPanel(Sender).Caption]);
end;

Задача проста. Делаю клавиатуру, с панелек, но каждой кнопки-панельки углы должны быть скруглены. Есть процедура MyRound. Но как мне использовать эту процедуру? Конечно можно набросать на форму 33 панельки, с каждой мучиться, и писать код для скругления каждой и позицией каждой, но хочется красивее и проще.

И еще вопрос. Когда я переношу код

procedure TForm1.BitBtn1Click(Sender: TObject);
var i, j : integer;
begin
  for i := 1 to 3 do
    for j := 1 to 11 do
      with TPanel.Create(Self) do
      begin
        Caption := Format ('%d %d', [i, j]);
        ParentBackground:=False;
        Top     := 50 + 73 * i;
        Left    := 50 + 73 * j;
        Width   := 70;
        Height  := 70;
        OnClick := OwnButtonClick;
        Parent  := Self;
      end;
end;

в другой модуль, то ругается на

with TPanel.Create(Self) do

Как мне в другом модуле обьявить переменную Self?

[Snake_ua]

Первая часть задачи решена.
Сделал следующее:
Добавил переменную NewPanel

...
var NewPanel: TPanel;
...

После, вместо

with TPanel.Create(Self) do

сделал

NewPanel:=TPanel.Create(PanelPrt);
      with NewPanel do

Оказалось предельно просто.

MyRound(NewPanel);

все панельки как на подбор.
Но вот все таки хочу эту процедуру загнать в отдельный модуль и

  for i := 0 to 2 do
    for j := 0 to 10 do
    begin
     NewPanel:=TPanel.Create(Form1.PanelPrt);
      with NewPanel do
      begin
      Inc(n);
        Caption := Format ('%d %d', [i, j]);
        ParentBackground:=False;
        Top     := 50 + 73 * i;
        Left    := 50 + 73 * j;
        Width   := 70;
        Height  := 70;
        OnClick := Form1.OwnButtonClick;
        Parent  := Self;
        MyRound(NewPanel);    
      end;
    end;

Parent  := Self;

Undeclared indentifier: 'Self'

и не могу понять что делать.

[Прик]

Какая необходимость так привязываться к Self? Это просто указатель на "на саму себя", который можно заменить на переменную, также указывающую на форму:

Parent := Form1;

и все.

[Snake_ua]

Оу, спасибо