Создание button

[casper0094]

Как создавать кнопки,как в total comandere кнопки дисков, в процессе программы? Например : В totale вставляеш флешку и появляется кнопка с именем флешки, достаеш - она исчезает.

[zmey31313]

Mbutton := Tbutton.create(MForm);
with Mbutton do 
begin
  Parent := MForm;
  caption := 'ok';
  onClick := Mbuttonclick;
end;
Mbutton.Show;

[casper0094]

Большое спасибо))