procedure TPDF.LetterHead(template,Text:string);
var
  TextDocID: Integer;
  TemplateDocID: Integer;
  FrontPageID:integer;
  EvenPageID:integer;
  OddPageID:integer;
  OverlayID:integer;
  PageHeight: Double;
  PageWidth: Double;
  LetterheadCount:integer;
  i: Integer;
begin

qp.LoadFromFile(Text,'');
TextDocID := qp.SelectedDocument();
qp.LoadFromFile(template,'');
TemplateDocID := qp.SelectedDocument();
LetterHeadCount:=qp.PageCount;
qp.SelectDocument(TextDocID);
qp.MergeDocument(TemplateDocID);

OddPageID := 0;
EvenPageID := 0;
FrontPageID := 0;

case LetterheadCount of
1: begin
    FrontPageID := qp.CapturePage(qp.PageCount);
   end;
2: begin
    EvenPageID := qp.CapturePage(qp.PageCount);
    FrontPageID := qp.CapturePage(qp.PageCount);
   end;
3: begin
    OddPageID := qp.CapturePage(qp.PageCount);
    EvenPageID := qp.CapturePage(qp.PageCount);
    FrontPageID := qp.CapturePage(qp.PageCount);
   end;
end;


for i := 0 to qp.PageCount-1 do
begin
 OverlayID:=0;
 case LetterheadCount of
 1: begin
       OverlayID:=FrontPageID;
    end;
 2: begin
      if i=0 then
       OverlayID:=FrontPageID
     else
      OverlayID:=EvenPageID;
    end;
 3: begin
     if i=0 then
      OverlayID:=FrontPageID
     else
     begin
      if Odd(i+1) then
       OverlayID:=OddPageID
      else
       OverlayID:=EvenPageID
     end;
   end;
 end;

 if OverlayID>0 then
 begin
  qp.SelectPage(i+1);
  PageHeight := qp.PageHeight();
  PageWidth := qp.PageWidth();
  qp.DrawCapturedPage(OverlayID, 0, PageHeight, PageWidth, PageHeight);
 end;

end;

qp.SaveToFile('H:\output.pdf');

end;