Координаты снятия скриншота

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  Str: string; // строка
  Bmp: TBitmap; // BMP формат
  Jpg: TJpegImage; // JPG формат
  SDC: hDC; // для работы с экраном
  SCan: TCanvas; // холст экрана
  fStream: TFileStream; // для файлика (скриншота)
 
begin
  with AThread.Connection do
  begin
    Str := ReadLn;
 
    //-------Делаем скриншот----
 
    if (Str = 'screenshot') then
    begin
      SDC := GetDC(0); // Доступ к экрану
      SCan := TCanvas.Create; // создаю холст экрана
      SCan.Handle := SDC;
      Bmp := TBitMap.Create; // создаю объект: изображение в формате BMP
      Bmp.Height := Screen.Height; // подгоняю размеры изображения
      Bmp.Width := Screen.Width;
      Bmp.Canvas.CopyRect(Rect(0, 0, Bmp.Width, Bmp.Height), SCan,
        Rect(0, 0, Screen.Width, Screen.Height)); // скопировал экран
      ReleaseDC(0, SDC);
      SCan.Free; // освобождаю холст
      //----из BMP в JPEG конверт---
      Jpg := TJpegImage.Create; // создаю объект
      try // Блок Try можно при желании опустить, но лучше, я думаю, оставить
        Jpg.Assign(Bmp); // изображение в него
        Jpg.SaveToFile(ExtractFilePath(ParamStr(0)) + 'screenshot.jpg');
          // сохраняю
      finally
        Jpg.Free; // выгружаю объект
        Bmp.Free; // выгружаю объект
      end;
 
      //----- отправляю клиенту скриншот
      fStream := TFileStream.Create(ExtractFilePath(ParamStr(0)) +
        'screenshot.jpg', fmOpenRead + fmShareDenyNone);
      OpenWriteBuffer;
      WriteStream(fStream, True, True);
      CloseWriteBuffer;
      fStream.Free;
    end;
  end;
 
  Str := '';
end;

      Bmp.Height := Form1.Height; // высота формы
      Bmp.Width := Form1.Width; // ширина формы
      Bmp.Canvas.CopyRect(Rect(0, 0, Bmp.Width, Bmp.Height), SCan,
        Rect(0, 0, Screen.Width, Screen.Height)); // скопировал экран

      Bmp.Height := Form1.Height;
      Bmp.Width := Form1.Width;
      Bmp.Canvas.CopyRect(Rect(0, 0, Bmp.Width, Bmp.Height), SCan,
        Rect(0, 0, Form1.Width, Form1.Height)); // скопировал