procedure OutsideBox(l,t,r,b, obj: integer);
begin
  if tImages[obj].Left < l then
    tImages[obj].Left := l;
  if tImages[obj].Top < t then
    tImages[obj].Top := t;
  if tImages[obj].Left > r then
    tImages[obj].Left := r;
  if tImages[obj].Top > b then
    tImages[obj].Top := b;
end;
OutsideBox(0,0,-854, -765, IMG_LOC_MAP);









{if tImages[IMG_LOC_MAP].Left > 0 then
          tImages[IMG_LOC_MAP].Left := 0;
        if tImages[IMG_LOC_MAP].Top > 0 then
          tImages[IMG_LOC_MAP].Top := 0;
        if tImages[IMG_LOC_MAP].Left < -854 then
          tImages[IMG_LOC_MAP].Left := -854;
        if tImages[IMG_LOC_MAP].Top < -765 then
          tImages[IMG_LOC_MAP].Top := -765;}