[A'Narky]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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 кто будет создавать? Описать его мало, надо для него еще и конструктор запустить.

Код:

1	Pict := TBitmap.Create;

[A'Narky]

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