Recebendo o valor de uma label ao clicar no TSPEEDBUTTON!

Amigo crie algumas variaveis string no menu e no active do menu vc testa se tem informação nelas se tiver vc carrega os seus campos
verifica se da certo.

só lembrando que este código que esta logo após a duvida, esta no OnShow do frmComanda.

Alguém pra me ajudar, por favor?

Mas eu não estou usando menu

Alguém pra me ajudar com esta pergunta por favor?

Mais alguém por favor, pra me ajudar?

agora estou fazendo uns testes aqui até que deu meio certo, mas de principio quando clico no botão no primeiro show do form2 ele não aparece, mas, quando fecho o form2 e clico novamente no botão ai ele aparece.

segue o código dos testes que estou fazendo, realmente estou penando por uma coisa que deve ser bem simples.

Obrigado a todos que me ajudam e também passam vosso conhecimento pra todos.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
Bevel1: TBevel;
Label1: TLabel;
SpeedButton2: TSpeedButton;
Label2: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure Clicando(Sender: TObject);
procedure Clicando2(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
ListaEdit : TObjectList;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form2.ShowModal;
Clicando(SpeedButton1);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Form2.ShowModal;
Clicando2(SpeedButton2);
end;

procedure TForm1.Clicando(Sender: TObject);
begin
SpeedButton1.Tag := 0;
if(TSpeedButton(Sender).Tag = 0)then
Form2.label1.caption := 'Mesa: '+Label1.Caption;
//TEdit(ListaEdit.Items[TspeedButton(Sender).Tag]).Text := 'Mesa: '+ Label1.Caption;
//TEdit(ListaEdit.Items[TspeedButton(Sender).Tag]).Text := 'Mesa: '+ Label2.Caption;
end;

procedure TForm1.Clicando2(Sender: TObject);
begin
SpeedButton2.Tag := 1;
if (TSpeedButton(Sender).Tag = 1) then
Form2.label1.caption := 'Mesa: '+Label2.Caption;
end;
end.

Tópico Resolvido, consegui resolver.

You’ve written nice post, I am gonna bookmark this page, thanks for info. I actually appreciate your own position and I will be sure to come back here.
http://raze3.co/

wonderful!!! I have the same as your think
<a href="http://geometry-dash.online/geometry-dash-extra">Geometry Dash Extra</a>

Adoro todas as postagens, gostei muito, gostaria de mais informações sobre isso, pois é muito legal. Obrigado por compartilhar.

http://mutilateadoll2.top

Adorei o jeito que vc discute o topico otimo trabalho obrigado pela compartilha Seu informativo post.Thanx por compartilhar essa post útil continuar assim
http://mylittleponygames.games

Obrigado por postar um ótimo artigo!
http://raze3.co