Fórum Parametro passado chegando nulo - Delphi 2010 #399175

Olá pessoal.
Tenho um código em uma Unit que carrega Icones em BitBtn´s.
Quando chamo a Função de um form, passo o nome do form e quantos botões tem nesse form pra procedure carregar as imagens.
O problema, é que os parametros passados, chegam na procedure nulo.Ai recebo um Acess Violation de brinde.
Aqui ta o Código da Unit.
//Inicio da Procedure carrega Icones nos botoes.Procedure IconeBotao(Tela: TForm; Qtde: Integer);var    LibHandle: THandle;    Bitmap: TBitmap;    I, J: Integer;    foto: string;begin  LibHandle:= Loadlibrary('SDSImagens.dll');  for I:= 1 to Qtde do begin    try      if LibHandle <> 0 then begin        Bitmap:= TBitmap.Create;        foto:= 'Bitmap_' + IntToStr(I);        Bitmap.LoadFromResourceName(LibHandle, foto);        for J:= 1 to TForm(Tela).ComponentCount do begin          if (TForm(Tela).Components[J] is TBitBtn) and (TForm(Tela).Components[I].Name = 'BitBtn' + IntToStr(I)) then           (TForm(Tela).Components[J] as TBitBtn).Glyph.Assign(Bitmap);        end;      end;    finally      Bitmap.Free;    end;  end;end;
E aqui a maneira que chamo ela no Form.
  //colocando icones nos botoes.  IconeBotao(FrmCliente, 7);
Alguem sabe o que ta faltando ai, ou o que to fazendo de errado?