[icWasya]

Как-то так

Код:

var 
  Ico:TIcon;


  Ico:=TIcon.Create();

  Ico.Handle:=H;

  BitBtn1.Glyph:=Ico;

  Ico.Free;