Добавление кнопок на панель Delphi 7

[Itachi]

Здравствуйте. Как написать процедуру добавления кнопок на панель (с возможностью задать функции этой кнопки), изменения и удаления, так что бы кнопки добавлялись в столбик или в виде массива или решетки(как в терминалах оплаты услуг), если кнопки заполняют панель возможность добавить кнопку далее(на вторую панель), где они опять будут добавляться и при удаленнии кнопок не оставалось пустых мест, что бы последующие сдвигались или пустое место занимала последняя кнопка. Ответьте пожалуйста поподробнее если есть такая возможность.

[Itachi]

Пожалуйста помогите, очень срочно надо. Может ко нибудь сталкивался с нечто подобным, если вы не поняли вопрос (скорее всего так и есть) отпишите в теме я уточню или напишу конкретнее.

[Sparkman]

Примерно так

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure ButtonsClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Buttons : array of TButton;
  n : integer;

implementation

{$R *.dfm}
procedure AddButton(t,l,h,w:integer);
begin
     inc(n);
     SetLength(Buttons,n);
     Buttons[n-1]:=TButton.Create(Form1);
     Buttons[n-1].Top:=t;
     Buttons[n-1].Left:=l;
     Buttons[n-1].Height:=h;
     Buttons[n-1].Width:=w;
     Buttons[n-1].OnClick := Form1.ButtonsClick;
     Buttons[n-1].Parent := Form1;
     Buttons[n-1].Visible:=true;
end;

procedure TForm1.ButtonsClick(Sender: TObject);
begin
     ShowMessage('Кнопка нажата');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     AddButton(100,100,20,50);
end;

end.

Удаляем с помощью Buttons[0].Free (сдвинуть массив не забудьте).

[Itachi]

Sparkman спасибо