[A'Narky]

На форме 4 Image и кнопка для загрузки файла bmp, который раскидывается на части в эти имиджи, но после выбора bmp-шки вылетает фатал. Код на onClick следующий:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var 
Pict:Tbitmap;
begin
if OpenPictureDialog1.Execute then
  image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  Image1.Canvas.CopyRect(Image1.ClientRect, Pict.Canvas,
         Rect(0, 0, Pict.Width div 2, Pict.Height div 2));
  Image2.Canvas.CopyRect(Image2.ClientRect, Pict.Canvas,
         Rect(Pict.Width div 2, 0, Pict.Width, Pict.Height div 2));
  Image3.Canvas.CopyRect(Image3.ClientRect, Pict.Canvas,
         Rect(0, Pict.Height div 2, Pict.Width div 2, Pict.Height));
  Image4.Canvas.CopyRect(Image4.ClientRect, Pict.Canvas,
         Rect(Pict.Width div 2, Pict.Height div 2, Pict.Width,
  Pict.Height));
  Image1.Tag := 1;
  Image2.Tag := 2;
  Image3.Tag := 3;
  Image4.Tag := 4;
  Pict.Free;
end;
end.

Admin: Пользуемся тегами!

Помогите пожалуйста мне найти ошибку. Заранее благодарен

[Страдалецъ]

А Pict кто будет создавать? Описать его мало, надо для него еще и конструктор запустить.

Код:

Pict := TBitmap.Create;

[A'Narky]

Спасибо большое за оперативную помощь. Тему можно закрыть.