[Resolvido] Criar Botão

Bem amigos... tenho o seguinte código:

//Cria um botão no form1

procedure TForm1.Button1Click(Sender: TObject);

var

Botao: TButton;

begin

Botao := TButton.Create(form1);

 with botao do

 begin

 Visible := true;

 Top := 105;

 Left := 10;

 Width := 105;

 Caption := 'Servidor';

 Name := 'botaoserver';

 Parent := form1;

 end;

 

end;

Agora eu gostaria que a cada click desse botão, fosse criado um novo abaixo dele e parasse no vigésimo botão.

Desde já agradeço a ajuda.