Сохранение Tbitmap

[Horus92]

С сохранением bitmap разобрался теперь другая проблема.
Здравствуйте я в своей программе получаю иконку файла через

var bamp:Tbitmap; icon:Ticon;
begin
Icon:=TIcon.Create;
      Icon.Handle:=ExtractAssociatedIcon(hInstance,PChar(s),Filter);
      bamp:=convertimg(icon);
end;

Функция convertimg

function Tform1.convertimg(Ico: TIcon): Tbitmap;
var
  Bmp : Graphics.TBitmap;
begin
  Bmp := Graphics.TBitmap.Create;
  Bmp.Height := 32;
  Bmp.Width := 32;
  bmp.Canvas.Draw(0,0,ico);
  Result := bmp;

end;

При получении иконки когда я доюавляю файл (через нажатие кнопки) все иконки нормально получаются.
Но когда я сделал всё тоже самое через FormCreate то почему-то некоторые иконки не прорисовываются.

[Stilet]

Если не секрет зачем тебе иконку в битмап конвертировать?

[Horus92]

в bitbtn глиф можно только Tbitmap поставить но я уже решил проблему вместо formcreate выполеяю на formshow и иконки нормально грузятся