Interesante pauti.
Pero no entiendo el por qué de este código:
Código Delphi
[-]procedure TForm2.btn1Click(Sender: TObject);
var
myGlobal : TGlobales;
begin
Caption := myGlobal.Usuario;
end;
......
procedure TForm1.btn1Click(Sender: TObject);
var
myGlobal : TGlobales;
begin
myGlobal.Usuario := 'Paoti';
end;
Cuando simplemente se podría hacer así, según una clase de muestra que he escrito:
Código Delphi
[-]
TGlobalVars = class
private
class var FVar1: String;
public
class property Var1: String read FVar1 write FVar1;
class var Var2: String;
end;
implementation
procedure TForm2.Button1Click(Sender: TObject);
begin
TGlobalVars.Var1 := Edit1.Text;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
ShowMessage(TGlobalVars.Var1);
end;