Funções em uma DLL ?

05/03/2006

Tenho o seguinte Código, para limpar alguns componentes na tela de 1 Form. O problema é o seguinte:Este código abaixo, declarado em 1 form, roda normalmente. Quando adapto ele para uma DLL, e a chamo no form, ela ñ funciona(ñ acontece nada,como se nem tivesse sendo chamada, mas já vrf no debug e ela está sendo chamada).
Alguém pode ajudar ???
Abraços...
----------------------------------------------------------------
Procedure LimpaObjeto(Sender:Tobject);StdCall;
Var
C:integer;
Begin
For C:=0 to Tform(Sender).ComponentCount -1 do
Begin
If Tform(Sender).Components[C] Is TLabeledEdit then
tLabeledEdit(Tform(Sender).Components[c]).Clear;
If Tform(Sender).Components[C] Is TEdit then
tEdit(Tform(Sender).Components[c]).Clear;
If Tform(Sender).Components[C] Is TMaskEdit then
tMaskEdit(Tform(Sender).Components[c]).Clear;
End;
End;
Exports LimpaObjeto;


Cabal