GhostScript: PDF wird nicht erzeugt

[Angel4585]

Hallo,

ich hab das gsapi-Beispiel hier http://pages.cs.wisc.edu/~ghost/doc/gsapi.htm runtergeladen und die gsapi.pas in mein Projekt eingebunden.

Nun hab ich folgende Funktion:

Delphi-Quellcode:

function TForm1.PS2PDF(inFile, outFile : string) : Integer;
var
code, code1 : Integer;
gsargc : Integer;
gsargv : PPchar ;
err : cardinal;
minst : Pointer;
begin
try
    SetLength(gsargv,10);
    gsargv[0] := 'ps2pdf';   // actual value doesn't matter */
    gsargv[1] := '-dNOPAUSE';
    gsargv[2] := '-dBATCH';
    gsargv[3] := '-dSAFER';
    gsargv[4] := '-sDEVICE=pdfwrite';
    gsargv[5] := PChar('-sOutputFile='+outFile);
//    gsargv[5] := '-sOutputFile=test.pdf';
    gsargv[6] := '-c';
    gsargv[7] := '.setpdfwrite';
    gsargv[8] := '-f';
    gsargv[9] := PChar(inFile);
    gsargc    := 10;

    code := gsapi_new_instance(@minst, nil);
    if (code < 0)then
      begin
      Result:=0;
      raise Exception.Create('new instance '+IntToStr(code));
      end;
    code := gsapi_init_with_args(minst, gsargc, gsargv);
    code1 := gsapi_exit(minst);
    gsapi_delete_instance(minst);
    Result:=1;
except
  err := GetLastError;
  if err > 0 then
    begin
      ShowMessage(SysErrorMessage(err));
    end;
  gsapi_exit(minst);
  end;
end;

Die Funktion wird auch sauber durchlaufen, keine Fehlermeldungen, garnichts. Aber es wird keine PDF-Datei erzeugt.
Kennt sich jemand bissl damit aus und kann mir sagen wo mein Fehler liegt?