Sistema para Lanchonetes

procedure TForm2.AbrirMesa(Sender: TObject);
begin
  ShowMessage((Sender as TButton).Caption);
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  i : Integer;
  b : TButton;
begin
  for i := 1  to 15 do
  begin
    b := TButton.Create(Self);
    b.Caption := 'Mesa ' + IntToStr(i);
    b.Align := alClient;
    b.Click := AbrirMesa;
    GridPanel1.InsertControl(b);
  end;
end;

AbrirMesa(Sender: TObject);

TFormMesas = class(TForm)
private
  procedure AbrirMesa(Sender : TObject);

  ShowMessage((Sender as TSpeedButton).Caption);

NumeroMesa : Integer;

FormVenda := TFormVenda.Create(Application);
FormVenda.NumeroMesa := (Sender as TSpeedButton).Tag; //Considerando que você atribuiu o número da mesa à tag do botão
FormVenda.ShowModal();

NumeroMesa : Integer;

FormVenda := TFormVenda.Create(Application);
FormVenda.NumeroMesa := (Sender as TSpeedButton).Tag; //Considerando que você atribuiu o número da mesa à tag do botão
FormVenda.ShowModal();

FormVenda := TFormVenda.Create(Application);
FormVenda.NumeroMesa := (Sender as TSpeedButton).Tag; //Considerando que você atribuiu o número da mesa à tag do botão
FormVenda.ShowModal();

procedure TfrmMovMesa.FormCreate(Sender: TObject);
var
i : Integer;
b : TSpeedButton;
begin
for i := 1 to 4 do
begin
b := TSpeedButton.Create(Self);
b.Caption := 'Mesa' + IntToStr(i);
b.Align := alClient;
b.OnClick := abrirmesa;
GridPanel1.InsertControl(b);
end;
end;


procedure TfrmMovMesa.abrirmesa;
begin
frmnovavenda := TfrmNovaVenda.Create(Application);
frmnovavenda.NumeroMesa := (Sender as TSpeedButton).Tag;
 //Considerando que você atribuiu o número da mesa à tag do botão

frmnovavenda.Show;


ShowMessage((Sender as TSpeedButton).Caption);
end;
end.

frmNovavenda.lblmesa.text;

b.Tag := i; //isso atribui 1, 2, 3... à tag, senão todos seriam zero

lblmesa.Caption := IntToStr(NumeroMesa);

b.Tag := i;
b.Caption := 'Mesa' + IntToStr(i);

LBLSTATUSMESA.Caption := IntToStr(NumeroMesa);

frmnovavenda.NumeroMesa := (Sender as TSpeedButton).Tag;

//inicializa a venda para um cliente
  dm.ib_venda.Append;
  //importa o código do cliente para a tabela venda
  dm.ib_vendaCOD_CLIENTE.Value := dm.ib_clienteCOD_CLIENTE.Value;
  //inicializa o total da venda com o valor zero
  dm.ib_vendaTOTAL_VENDA.Value := 0;
  //atribui ao campo datavenda a data atual do sistema

 dm.ib_vendaDATA_VENDA.value := Date;

  //salva as informações na tabela venda
  dm.ib_venda.Post;




 dm.IBTransaction1.CommitRetaining;
 botaoCancelar.Visible:=true;

- Cod_mesa
- numero_mesa
- Ocupantes
-Status
- Total_Mesa