anchor.diff:    writeln('  AFilename="', AFilename, '"');
     {$ENDIF}
   
  -  if {(ResUnitName = '') or} (AFilename = '') or (not FileExists(AFilename)) then
  +  if {(ResUnitName = '') or} (AFilename = '') or (not fpgFileExists(AFilename)) then
       ToolkitOnly := True;  // we don't have a application translation file
     try
       po := nil;
       // read .po file
       if ToolkitOnly then
       begin
  -      if not FileExists(lFile) then
  +      if not fpgFileExists(lFile) then
           Exit;
         {$IFDEF DEBUG}
         writeln('  ************  Only translating the toolkit   ***********');
  
positive.code:   f: TStream;
  begin
    // Now fpGUI translation
    if (AFilename = '') or (not FileExists(AFilename)) then
      Exit;
    f := TFileStream.Create(AFilename, fmOpenRead);
    try
  
negative.code:   ToolkitOnly := False;
  
    // build correct filename for fpGUI Toolkit translations.
    lPath := fpgExtractFilePath(AFilename);
    lFile := fpgExtractFileName(AFilename);
    lPos := Pos('.', lFile);
    lFile := lPath + 'fpgui' + Copy(lFile, lPos, Length(lFile)-lPos+1);
    {$IFDEF DEBUG}
  