привет,у меня игра шары и у меня сейчас просто по нажатию по шарику он перемещается по полю подскажи как сделать чтобы по нажатию на шарик он менялся местом с соседним шар - вопрос №2425967

procedure TForm1.OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var i,j:integer; begin x:=x div 32; y:=y div 32; if a[x,y] > 0 then begin //очистка массива для последующего поиска пути for i:=0 to 8 do for j:=0 to 8 do b[i,j]:=0; TempX:=x; TempY:=y; TempZ:=a[x,y]; BALLClick:=true; //шар выбран FindZero(x,y); end; if (a[x,y]=0) and (BALLClick=true) and (b[x,y]=1) then begin Form1.Imagelist1.GetBitmap(0,BMP); Form1.Image1.Canvas.Draw(TempX*32,TempY*32,BMP); Form1.Imagelist1.GetBitmap(TempZ,BMP); Form1.Image1.Canvas.Draw(x*32,y*32,BMP); BALLClick:=false; a[TempX,TempY]:=b[x,y]; a[x,y]:=b[x,y]; RandomBALL; //добавляем шарики end; end;