[Memo6015]

Amigos de Club Delphi, estoy usando delphi rad studio xe4, y me enfrento con el siguiente problema.

tengo dos units, unit1 y unit2, tengo definido unit2 de la sgte manera :

Código Delphi [-]
HiloTrabajoBack = class(TThread)

private
  LB_ListaPersona : TListBox;
  LB_ListaPersonas2 : TListBox;
  NombreProducto : String;
  

protected
  procedure Execute; override;
  procedure PosicionListBox;

public
  constructor Create(LB_ListaP1:TListBox; LB_ListaP2:TListBox; NomProd : String);

end;


implementation


constructor HiloTrabajoBack.Create(LB_ListaP1:TListBox; LB_ListaP2:TListBox; NomProd : String);
begin
     inherited Create(False);
     Self.LB_ListaPersonas := LB_ListaP1;
     Self.LB_ListaPersonas2 := LB_ListaP2;
     NombreProducto := NomProd;
end;

procedure HiloTrabajoBack.Execute;
begin
     try
          Synchronize(PosicionListBox);
      except
      on E: Exception do
        Messagedlg('Error Al Ejecutar El Thread' + E.Message,mtError,[mbok],0);
      end;

end;

procedure HiloTrabajoBack.PosicionListBox;
var
  indice : integer;
  ProductoAux : String;
begin
      for indice := 0 to Self.LB_ListaPersonas2.Count-1 do
      begin
         ProductoAux := Self.LB_ListaPersonas2.Items[indice];
         if(CompareStr(Self.NombreProducto, ProductoAux) = 0) then
         begin
            Self.LB_ListaPersonas2.Selected[indice]:=True;
            {-------------- aqui necesito capturar la variable indice y acceder a esta desde el objeto creado en Unit1------------------}
            Break;
         end;
      end;
end;

end.

lo que necesito es definir una variable, o una propiedad de la clase Unit2 que capture y mantenga el valor que me arroja indice del metodo PosicionListBox y pueda acceder a este desde el Unit1.

en Unit1 en el metodo click de un listbox, tengo creado mi objeto HiloTrabajoBack

Código Delphi [-]
procedure TF_ClientesPersonas.LB_CuentaPersonasOnClick(Sender: TObject);
begin
  
TrabajoUno := HiloTrabajoBack.Create(LB_CuentaCliente, LB_Cliente2, LB_CuentaCliente.Items[LB_CuentaCliente.ItemIndex]);
  
end;

entonces desde el objeto TrabajoUno necesito traer el valor de indice desde mi objeto en Unit1........quizas es complicado de entender lo que trato de explicar pero no se como explicarlo mejor.

Yo he programado en java, y desde java a las clases se les dota de los metodos getter y setter y listo, pero aca en delphi el valor no se mantiene, he intentado con property y tratando de utilizar class var para crear variables estaticas en la clase del thread y que esta mantenga el valor pero no he obtenido ningun resultado.


se que puedo definir una variable privada en la clase HiloTrabajoBack y acceder a esta con unos getter y setter en public, pero al hacerlo (por que pense que ocurria lo mismo), cuando accedo desde mi objeto TrabajoUno.NombreVariable y accedo a su valor me arroja 0, estuve haciendo un debug con delphi cuando probe creando una variable y ha esta se le asigna, pero al momento de ir a buscar el valor desde mi objeto, no obtengo nada.

en definitiva.

Como mantengo un valor desde una Unidad a Otra, o sea Obtener un valor de Unit2 en Unit1, y accederla desde mi objeto?