Курсовая работа: Создание мини-игры "Магический квадрат"

Bitmap2:=TBitmap.Create; //создание объекта-битового образа

//Загрузка битового изображения из файла

Bitmap2.LoadFromFile('fon.bmp');

Canvas.StretchDraw(Rect(0, 0, OKBottomDlg1.clientWidth, OKBottomDlg1.clientHeight),Bitmap2);

//Рисование и заполнение формы рисунком Bitmap

end;

procedure TOKBottomDlg1.OKBtnClick(Sender: TObject);

begin

OKBottomDlg1.Close; //Закрытиеокнапощелчкукнопки "OK"

end;

end.