Alamcenar Result de storedProc desde otra unidad

[R0M3R0]

Buenas a todos.
Por favor ayudeme

En un DataModule tengo el procedimiento almacenado
Y en otra unidad quiero almacenar en una variable el resultado del mismo
este es el codigo que tengo

function ValidarUsuario(cuenta_:string):string;
var
contrasenaStored:String;
begin
try
with dmOtros.spRecuperarContrasena do
begin
ParamByName('cuenta_').AsString:=cuenta_;
Prepare;
ExecProc;
end
contrasenaStored:=dmOtros.spRecuperarContrasena.Parambyname ('Result').AsString;//como almaceno el resultado en esta unidad
end;
end;

PLEASE HELP ME!!

[eduarcol]

creo que no estoy entendiendo, asi como lo estas haciendo deberia estar pasando de una unidad a otra, podrias explicar un poco mejor lo que pretendes?

[R0M3R0]

miren Tengo estas dos unidades

Código Delphi [-] (http://www.clubdelphi.com/foros/#)
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables,Unit2;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
usuario:TUsuario;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
usuario.poner(Edit1.Text);
end;
end.




y esta

Código Delphi [-] (http://www.clubdelphi.com/foros/#)
unit Unit2;
interface
uses
Classes,Dialogs;
type
TUsuario=class
private
cuenta:String;
public
procedure Poner(cuenta_:string);
end;
implementation
procedure Tusuario.Poner(cuenta_ : string);
begin
cuenta:=cuenta_;
ShowMessage(cuenta);
end;
End.




Por QUE no puedo almacenar desde unit11 a unit2 en la variable cuenta
por favor corrijanme por que no puedo almacenar en CUENTA

[R0M3R0]

bien parece q haci se aprende ... Investigue un rato y bueno revisando mi codigo -.-?! :confused:http://www.clubdelphi.com/foros/images/smilies/confused.gif :confused: ENCONTRE LA SOLUCION solo falta crear el objero usuario:=TUsuario.create; saludos