procedure ClientRect;
      begin
         // получение полного размера главного окна (для Bitmap'a это -- Width, Height; тут может и тупо)
         wsz := hRect.Right - hRect.Left;
         hsz := hRect.Bottom - hRect.Top;
         // получение размеров окна вписывания
         hw := x2 - x1;
         hh := y2 - y1;
         // ограничение размера окна вписывания границами главного окна
         if  hw > (wsz - x1) then hw := wsz - x1;
         if  hh > (hsz - y1) then hh := hsz - y1;
         // если нет координат, то назначаем размер главного окна окну вписывания
         if (hw = 0) or (hh = 0) then begin
            x1 := 0;
            y1 := 0;
            hw := wsz;
            hh := hsz;
         end;
      end;