[AlexSku]

Код:

var R, R1, R2: TRect;
procedure TForm1.MoveToLeftExecute(Sender: TObject);
begin
  R1:= p.ClientRect;
  OffsetRect(R1, p.Left-1, p.Top);
  R2:= Ostrov.ClientRect;
  OffsetRect(R2, Ostrov.Left, Ostrov.Top);
  if (P.Left<>0) and not IntersectRect(R, R1, R2)
 then P.Left:=P.Left-1;
end;