Динамическое создание кнопок

[HTTqp]

Подскажите как исправить проблему. Она заключается в том что я ищу все жесткие диски, если найден создать кнопку, с его буквой. Я делаю, но у меня появляются кнопки с буквой последнего найденного диска.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
pref=':\';
var
  Form1: TForm1;
  Drive: Char; //Буква диска.
  Buttons: array[1..10] of TButton;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   i: Byte;
 begin
for Drive := 'A' to 'Z' do
 if GetDriveType(PChar(Drive + pref)) = DRIVE_FIXED then
   begin
   for i := 1 to 10 do
   begin
     Buttons[i] := TButton.Create(Self);
     with Buttons[i] do
     begin
       Parent  := Form1;
       Caption := Drive;
       Left     := i *Width;
       Tag     := i;
       Visible := True;
     end;
   end;
 end;
 end;


end.

[Alter]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Byte;
begin
  I := 0;
  for Drive := 'A' to 'Z' do
  if GetDriveType(PChar(Drive + pref)) = DRIVE_FIXED then
  begin
    Buttons[i] := TButton.Create(Self);
    with Buttons[i] do
    begin
      Parent := Form1;
      Caption := Drive;
      Left := I*Width;
      Top := 10;
      Tag := i;
      Visible := True;
    end;
    Inc(I);
  end;
end;

Я использовал раньше TToolBar для панельки дисков с иконками.

[HTTqp]

Alter, спасибо работает, только последний вопрос. Почему появляется лишняя кнопка с китайским йроглифом?

[Alter]

Так уж и быть, вот полный код. Думал, что догадаетесь что там не допилено в том первоначальном виде.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    Buttons :array[1..10] of TButton;
    procedure FreeButtons;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  I :Byte;
  DType :Integer;
  Drive :Char;
begin
  FreeButtons;
   I := 0;
  for Drive := 'A' to 'Z' do
  begin
     DType := GetDriveType(PChar(Drive + ':\'));
    case DType of
      0: {The drive type cannot be determined.};
      1: {The root directory does not exist.};
      DRIVE_FIXED: begin {'cannot be removed drive.'}
                    Buttons[i] := TButton.Create(Self);
                    with Buttons[i] do
                    begin
                      Parent := Form1;
                      Caption := Drive;
                      Left := I*Width;
                      Top := 10;
                      Tag := i;
                      Visible := True;
                    end;
                    Inc(I);
                   end;
    end;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeButtons;
end;

procedure TForm1.FreeButtons;
var
  I :Byte;
begin
  for I := Low(Buttons) to High(Buttons) do
  if Assigned(Buttons[I]) then
   FreeAndNil(Buttons[I]);
end;

end.

Делал только ради эксперимента то, что ниже Это значит, что не доделал. Запуск просмотр и запуск может.

[Аватар]

Кнопки можно и не освобождать кодом - при уничтожении формы они тоже удалятся и лучше Parent := Self;

[Alter]

Сильно модифицировать, "до блеска", исходный код ТС не была цель.

[HTTqp]

А помогите пожалуйста используя этот код уничтожить лишние кнопки если после создания что то изменилось, например отключили тот или иной диск.

[Alter]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBT;

//const // если не подключать модуль DBT
//    DBT_DEVICEARRIVAL = $8000;
//    DBT_DEVICEQUERYREMOVE = $8001;
//    DBT_DEVICEQUERYREMOVEFAILED = $8002;
//    DBT_DEVICEREMOVEPENDING = $8003;
//    DBT_DEVICEREMOVECOMPLETE = $8004;
//    DBT_DEVICETYPESPECIFIC = $8005;
//    DBT_CONFIGCHANGED = $0018;
//    DBT_DEVNODES_CHANGED = $0007;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMDeviceChange(var message: TMessage); message WM_DEVICECHANGE;
    { Private declarations }
  public
    Buttons :array[1..15]of TButton;
    procedure FreeButtons;
    procedure UpdB;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 UpdB;
end;

procedure TForm1.FreeButtons;
var
  I :Byte;
begin
  for I := Low(Buttons) to High(Buttons) do
  if Assigned(Buttons[I]) then
   FreeAndNil(Buttons[I]);
end;

procedure TForm1.UpdB;
const
   RemL :array[Boolean] of string = ('', '(re)');
var
  I :Byte;
  DType :Integer;
  Drive :Char;
begin
  FreeButtons; // del buttons
   I := 0;
  for Drive := 'A' to 'Z' do
  begin
     DType := GetDriveType(PChar(Drive + ':\'));
    case DType of
      0: {The drive type cannot be determined.};
      1: {The root directory does not exist.};
      DRIVE_FIXED, DRIVE_REMOVABLE:
                   begin
                     Buttons[i] := TButton.Create(Self);
                     with Buttons[i] do
                     begin
                       Parent := Form1;
                       Caption := Drive + RemL[DType=DRIVE_REMOVABLE];
                       Width := 40;
                       Left := I*Width;
                       Top := 10;
                       Tag := i;
                       Visible := True;
                     end;
                     Inc(I);
                   end;
    end;
  end;
end;

procedure TForm1.WMDeviceChange(var message: TMessage);
begin
  case message.wParam of
    DBT_DEVICEARRIVAL: UpdB
      {'Устройство было вставлено и теперь доступно'};
    DBT_DEVICEQUERYREMOVE:
        begin
          {'Разрешение удалять устройство запрошено. Любая прикладная программа может'
           'отвергать этот запрос и отменять удаление'
          };
          {True - дает разрешение}
          message.Result := integer(true);
          Exit;
        end;
    DBT_DEVICEQUERYREMOVEFAILED:
      {'Запрос, чтобы удалить устройство был отменен'};
    DBT_DEVICEREMOVEPENDING:
      {'Устройство собирается быть удаленным. Не может быть отклонено'};
    DBT_DEVICEREMOVECOMPLETE: UpdB
      {'Устройство было удалено'};
    DBT_DEVICETYPESPECIFIC:
      {'Зависящее от устройств событие'};
    DBT_CONFIGCHANGED: UpdB
      {'Текущая конфигурация изменилась'};
    DBT_DEVNODES_CHANGED:
      {'Узел устройства изменился'};
  end;
  inherited;
end;

end.

[HTTqp]

Alter , спасибо помог, но есть еще одна проблема. Я создаю кнопки в двух экземплярах на форме и делаю через процедуру:

procedure TForm1.UpdateDrive(TP:TfrxTBPanel;Kind:TfrxTBPanel);
var
I:Byte;
DType:Integer;
begin
FreeButtons;
I:=0;
for Drive:='a' to 'z' do
 begin
 DType:=GetDriveType(PChar(Drive+pref0));
 case DType of
 0:;
 1:;
 DRIVE_FIXED{Жесткий диск},DRIVE_REMOVABLE{USB},DRIVE_CDROM{CD-DVD},DRIVE_REMOTE{LAN}:
 begin
  Buttons[i]:=TBitBtn.Create(Self); //Создаем кнопку
   with Buttons[i]do
   begin
   Parent:=TP;
   Caption:=Drive; //Имя
   Height:=21; //Высота
   Width:=37;  //Ширина
   Left:=37+I*Width; //Отступ слева
   Top:=1; //Отступ сверху
   Tag:=i;
   Visible:=True;
   TabStop:=False; //Запрет TAB
   //OnClick:=AssignDrive;
   end;
  Inc(I);
 end;
end;
end;
end;

вывожу так

UpdateDrive(frxTBPanel1,frxTBPanel1);
    UpdateDrive(frxTBPanel2,frxTBPanel2);

и получается что один ряд все нормально, а у второго выводится только 1 найденный логический диск.

[Alter]

Что за TfrxTBPanel?