Движение квадратика

[Stilet]

Где задаются размеры окружности и квадрата?

const sr=100 - это половина стороны квадрата, а переменная r - типо радиус круга

Почему при наведении квадрата на окружность, она не вписывается в него?)

Фуххх... Какой требовательный, ну меняй

  function TForm1.collis:boolean;
  begin
   result:=
     (abs(sq.Y-circ.Y)<(sr+r))
     and
     (abs(sq.X-circ.X)<(sr+r));
   if Result
   then r:=sr else r:=50;
  end;
...
procedure TForm1.FormPaint(Sender: TObject);
begin
  if collis then begin
   circ:=sq;
  end;

P.S. Я же просто идею подал, а твоя задача иё развить.