Fórum extremamente urgente #167675

ola amigos, ja to ficando loco, to chamando uma funcão que se chama
function limpaEdit (Sender : TObject);
quando implemento esta funcao localmente, ela funciona normalmente, mas se implemento ela por exemplo em um DataModule e chamo de um form passando um form como parametro, ela nao recebe nada de parametro e simplismente nao limpa os edits do form passado por parametro, segue abaixo o codigo da funcao

function limpaEdit (Sender : TObject);
var
i: integr;
begin
for i := 0 to (Sender as TForm).ComponentCount - 1 do
begin
if ((Sender as TForm).Components[i] is TEdit) then
((Sender as TForm).Components[i] as TEdit).Clear;
end;
end;