Сочетание типов TPicture и TBitmap

[Alex Cones]

Var
  IMNG1,IMNG12 : TBitMap;

procedure TForm1.Img1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Form1.Img1.Picture := IMNG12;
end;

procedure TForm1.Img1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Form1.Img1.Picture := IMNG1;
end;

Но не работает и сообщает о несочетании TPicture и TBitMap.
Как исправить?

[Alex Cones]

Совсем с ума сошел! Забыл, что нужно нарисовать его на канве. Но вопрос не снимается. Типы вообще совместимы?

[Пепел Феникса]

procedure TForm1.Image1Click(Sender: TObject);
begin
 Image1.Picture.Bitmap:=B;
end;

может так?

B:TBitMap;

но мне кажется что нужно с размерами подгонять(хотя не знаю не проверял, не приходилось то есть)+можно же копировать изображение отсюда туды

[Alex Cones]

Большое спасибо, учту.