IOResult ohne Schreibrechte auf EXE Pfad???

[mrose]

Hallo!

In einer Routine versuche ich ein RichEdit nicht über die Methode LoadFromFile mit den Inhalten einer Textdatei zu laden, da ich ständig große Dateien hatte und mir diese Methode dann immer einfach die Datei abgeschnitten hat. Nun habe ich eine eigene Routie in dem Stil (bei mir macht sie noch etwas mehr) geschrieben:

Delphi-Quellcode:

  procedure LoadRichEdit(var RichEdit:TRichEdit; FileNameRich:String);

  begin
    {$I-}
    // clear richedit
    Richedit.Lines.Clear;
    // open file to load
    AssignFile(xTmpFile,FileNameRich);
    Reset(xTmpFile);
    if IOResult = 0 then
    begin
      while not(eof(xTmpFile)) do
      begin
        // read one line
        readln(xTmpFile,sTempLine);
        RichEdit.Lines.Add(sTempLine);
      end;
      CloseFile(xTmpFile);
    end;
    RichEdit1.SelStart := 0;
    RichEdit1.Sellength := 0;
    {$I+}
  end;

Das funktioniert auch hervorragend, solange der eingeloggte Benutzer Schreibrechte auf die Directory hat, in welcher sich meine Programmexe befindet. Das zu lesende File befindet sich aber NICHT an diesem Platz. Gehe ich mit dem Debugger schrittweise durch das Programm, dann scheint es, das das IOResult immer <> 0 ist, sobald die Schreibrechte auf die Programmexe Directory abgeschaltet sind.

Kann mir bitte jemand erklären, was ich falsch mache??? Vielleicht bin ich ja auch nur zu blind.... Vielen Dank schon mal!

Matthias.