[aqula]

проблему решил

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Bm:TBitmap;
 hWinDC:THandle;
 w,h:Integer;
begin
  w:=Self.Width;
  h:=Self.Height;
  //Self.Left:=0;
  //Self.Top:=0;
  Self.Width:=1285;
  Self.Height:=935;
  Bm:=TBitmap.Create;
  Bm.Width:=Self.Width-5;
  Bm.Height:=Self.Height-30;

//  hWinDC:=GetWindowDC(Self.Handle);
//  hWinDC:=GetDC(Self.Handle);
//  BitBlt(Bm.Canvas.Handle,0,0,Bm.Width, Bm.Height, hWinDC,0,0,SRCCOPY);
  Self.PaintTo(Bm.Canvas,0,0);
  ReleaseDC(Self.Handle,hWinDC);
  Self.Width:=w;
  Self.Height:=h;
  if SaveDialog1.Execute then
    bmp2pdf.BMPtoPDF(Bm,SaveDialog1.FileName);
  Bm.Free;

Спасибо Васе.