TStrings como variable global

[Jose Roman]

Hola a todos,

Resulta que he declarado mi variable TStrings globalmente asi:

Código Delphi [-]
implementation

uses uDataModule, uMain;

{ TAlumno }

var
  AlumnoSql : TStrings;

Cuando creo el TObject con el que estoy trabajando hago esto:

Código Delphi [-]
constructor TAlumno.Create;
begin
  inherited Create;
  AlumnoSql := TStringList.Create;
  AlumnoSql := wDataModule.tbAlumnos.SelectSQL;
  ShowMessage(AlumnoSql.Text);
end;

El cuadro de dialogo me muestra pecfectamente los valores de AlumnoSql, hasta ahi va bien, pero cuando voy a otro procedimiento:

Código Delphi [-]
procedure TAlumno.BuscarAlumno(Sender: TObject);
begin
   wDataModule.tbAlumnos.Close;
   wDataModule.tbAlumnos.SelectSQL.Clear;
   ShowMessage('AlumnoSql.Text);
end;

La variable AlumnoSql esta vacia. Que estoy haciendo mal?