Реферат: Игра Мозайка на Делфи Delphi

try

pic.LoadFromFile(openpicturedialog1.FileName);

except

on EFopenError do

begin

ShowMessage('Ошибка загрузки файла');

Form1.Close;

end;

end;

heig:=Pic.Height div H; // Размер клетки

widt:=Pic.Width div W;

ClientWidth:=widt*W; //Размер формы по размеру картинки

ClientHeight:=heig*H;

for i:=1 to H do

for j:=1 to W do

pole[i,j]:=pos[i,j];

Form1.Refresh; // перемещение клеток

Form1.Load; // загрузка поля

end;

end.