TFileStream.Create gibt Error

[Klaus01]

.. Du könntest den Fehler abfangen..

Delphi-Quellcode:

{*** Funktion um Dateigröße zu ermitteln ***}
function TfrmMain.getDateiGroesse(Dateiname : string): int64;
var Datei : TFileStream;
begin
  result := 0;

  try
    if (Fileexists(Dateiname))
    then begin
      g_pLogFile.Warning('Try to open ' + Dateiname);
      try
        Datei := TFileStream.Create(Dateiname, fmOpenRead OR fmShareDenyNone);
      except
        on E:Exception do
          g_pLogfile.Error('Datei ' + Dateiname + E.Message);
      end;
          
      result := Datei.Size;
    end
    else g_pLogfile.Error('Datei ' + Dateiname + ' exisitiert nicht!')

  finally
    g_pLogFile.Warning('Datei ' + Dateiname + ' wird freigegeben')
    Datei.free;
  end;
end;
{************************}

Grüße
Klaus