Программа парные картинки

[StR1k3R]

почти довел до ума, если кто-то еще делает параллельно со мной спасибо . как сделаю скину

[SNUPY]

Чтоб кубики были:

procedure TForm1.FormCreate(Sender: TObject);
 var
  np:integer;
begin
 pictures:=TBitmap.Create;
 // çàãðóçèòü êàðòèíêè èç ôàéëà
  pictures.LoadFromFile('pictures.bmp');
    HK:=Pictures.Height-1; // âûñîòà
    WK:=HK; // øèðèíà
  np:=round(pictures.Width/WK);
   if np <= 15
   then H:=4
   else H:=5;
  W:=H;
 // óñòàíîâèòü ðàçìåð ïîëÿ
  form1.ClientHeight:=H*HK;
  form1.ClientWidth:=W*WK;
  form1.timer1.Enabled:=false;
  form1.Timer1.Interval:=200;
  n:=0;
  NewGame;
 end;

Для больших решений... только за деньги, либо разбивайте на подзадачи и не требуйте конкретных решении (вас тут только подтолкнут)...