[angvelem]

Всё работает:

Код:

  BmpI: TBitmap;
  BmpT: TBitmap;
  ImgF: TImage;
begin
  BmpI := TBitmap.Create;
  BmpT := TBitmap.Create;
  ImgF := TImage.Create(nil);
  ImgF.Parent := Form1;

  BmpI.LoadFromFile('..\000.bmp');
  BmpT.Width  := BmpI.Width;
  BmpT.Height := BmpI.Height;
  BmpT.Canvas.CopyRect(Rect(0, 0, 32, 32), BmpI.Canvas, Rect(0, 0, 32, 32));
  ImgF.Picture.Assign(BmpT); // так работает, но не показывает изображение
//  ImgF.Assign(BmpT); // если так - ошибка

Эх опоздал.