imprimir varios archivos de word

[jonydread]

mi Aplicacion externa toma de a uno los archivos por eso consultaba como enviarlos susesivamente estoy tratando de hacerlo con createprocess para cuando termine con uno seguir con otro ay estoy medio colgado porque me sale un error

Código Delphi [-]
procedure Tform1.LlamarReg2inf(Hnd: THandle; const App:string; const Origen: string; const Destino: string);
begin
  ShellExecute(Hnd,
              'OPEN',
              PChar(ExtractFileName(App)),
              Pchar(Origen+' '+Destino),
              PChar(ExtractFilePath(App)),
              SW_HIDE);
procedure TForm1.Button2Click(Sender: TObject);
var Origen, Destino : string;
  i: Integer;
   Process: Cardinal;
begin
Origen := Listbox1.Items[i];
Destino := ChangeFileExt(Origen,'.inf');
 LlamarReg2inf(Handle,'REG2INF.EXE',Origen,Destino );
 Process := ExecuteProcess('reg2inf.exe');
  if Process <> 0 then
    WaitForSingleObject(Process, INFINITE);
    //finalizado
 end;

uso esa funcion que me pasaste en otro post
Gracias