Проблема копирования изображения

[qivi]

Столкнулся с проблемой копирования изображения из TBitmap в TImage.
Вот код:

Код: Выделить всё

  var
    Img:TImage;
~
procedure TForm1.BitBtn1Click(Sender:TObject);
  var
    Bitmap:TBitmap;
begin
  if OD.Execute then
  begin
    Bitmap:=TBitmap.Create;
    Bitmap.LoadFromFile(OD.FileName);
    Img.Picture.Assign(Bitmap);
    Bitmap.Free;
  end;
end;   


Ошибка возникает в строке: Img.Picture.Assign(Bitmap), загрузка в строке Bitmap.LoadFromFile(OD.FileName) проходит успешно - проверил.
Сразу говорю, мне не нужно загружать изображение компонентом TImage мне нужно его именно скопировать.

Что я не так делаю в упор не вижу...

[Padre_Mortius]

С каким форматом картинки пытаетесь работать?

[qivi]

BMP, специально же написал, загрузка проходит успешно.

[hinst]

ну так... А вдруг

Код: Выделить всё

Img.Picture = nil

Надо проверить.
А вдруг вообще

Код: Выделить всё

Img = nil

А может быть, надо вместо

Код: Выделить всё

Img.Picture.Assign(Bitmap);

делать

Код: Выделить всё

Img.Picture.Bitmap := Bitmap

или вообще так

Код: Выделить всё

Img.Picture.Bitmap.Assign(Bitmap)

[qivi]

А вдруг вообще

Код: Выделить всё

Img = nil

hinst, точно так и оказалось... создал ТИмидж в дизайнере, а переименовал в коде (в объявлениях), среда создала повторное объявление созданного в дизайнере ТИмеджа, а я обращаюсь к случайно образовавшемуся и не созданному компоненту

[iskander]

Должен работать любой из вариантов:

Код: Выделить всё

Img.Picture.Bitmap.Assign(Bitmap);

или

Код: Выделить всё

Img.Picture.Bitmap := Bitmap

и даже

Код: Выделить всё

Img.Picture.Assign(Bitmap);