PDF mit Tesseract

[Delbor]

Hi zusammen

Inzwischen hat sich etwas getan, und obige Prozedur hat sich etwas verändert:

Delphi-Quellcode:

procedure TPDFOfficerMain.DoFinishedImageScan(Sender: TObject;
  const Image: TBitmap);
  var ActDate, OldFile, S, P :String;
      Scannedstream : TFileStream;  TTifimage : TTIFFGraphic;
begin
  TTifimage := TTIFFGraphic.Create;
  TTifimage.Assign(Image);                                         /// Das Image(BMP) wird in ein Tiff umgewandelt
  ImgScannedImage.Picture.Assign(TTifimage);         /// und einem TImage zugewiesen und auch angezeigt
  ImgScannedImage.Stretch := True;
  ActDate := ReplaceStr(DateTimeToStr(Now),':', '-' );
  OldFile := 'Image' +ActDate+'.tiff';                 // OldFile ist der Pfad, unter dem das Tiff gespeichert wird
  S := IncludeTrailingPathDelimiter(FAppDataPath) + OldFile;
  P := ChangeFileExt(S,'.Pdf');
  TTifimage.SaveToFile(S);                           // <=Hier sollte das Tiff gespeichert werden
  Self.OCRFrame1.OutputFileName := P;                // 2 Propertys beschreiben direkt 2 Felder für den
  Self.OCRFrame1.InputFileName :=  S;                // Quell- und den Zielpfad, den die Fuktion CreatePDF benötigt
  Self.OCRFrame1.OCR2PDF;
end;

Das Tiff wird zwar angezeigt, aber nicht gespeichert - logisch, dass die PDF-Datei zwar ebenso angelegt wird, wie die Tiff-Datei, aber natürlich ebenso leer ist. Das Problem scheint also genau da zu liegen. Was mache ich Falsch?

Gruss
Delbor