dateizugriff verweigert bei beliebigen Ordner-Zugriff

[Flummi]

Hallo,

ich habe ein großes Problem mit einem Delphi-Programm, dass urplötzlich den Zugriff auf einen Ordner verweigert (Dateizugriff verweigert). Das Programm läuft unter NT und Win XP.

Zum Programm selbst...:
Ein Ausschnitt der "fehlerhaften(?)" Codes bzw. der Prozedur:

Delphi-Quellcode:

procedure TfrmMain.DateiSenden;
const return = chr(13);
var Daten               : Empfaenger;
    SearchRec           : TSearchRec;
    dateiname           : string;
    text                : string[18];
    ASatz               : string;
    FromF, ToF          : file;
    bfile               : textfile;
    NumRead, NumWritten : Integer;
    Buf: array[1..1] of Char;
begin
  // Dateien suchen
  if FindFirst(PfadName+'*.*',faAnyFile,SearchRec)=0 then
    begin
      repeat
        dateiname:=SearchRec.Name;

        // Daten aus der DatenBank holen
        Daten:=DepotSuchen(copy(dateiname,4,3));

        if daten.Name <> 'Unbekannt' then
          begin
            AssignFile(bfile,PfadName+dateiname);
            reset(bfile);
            readln(bfile,ASatz);
            CloseFile(bfile);
            bordero:=copy(ASatz,5,18);

            AssignFile(FromF, PfadName+dateiname);
            Reset(FromF, 1);
            AssignFile(ToF, PfadName+'temp.dat');

            Rewrite(ToF, 1);
            repeat
              BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
              if ord(Buf[1])=10 then
                begin
                  Buf[1]:=chr(13);
                  BlockWrite(ToF,Buf[1],NumRead,NumWritten);
                  Buf[1]:=chr(10);
                  BlockWrite(ToF,Buf[1],NumRead,NumWritten);
                end
              else BlockWrite(ToF, Buf, NumRead, NumWritten);
            until (NumRead = 0);
            CloseFile(FromF);
            CloseFile(ToF);

            DeleteFile(PfadName+dateiname);
            RenameFile(PfadName+'temp.dat',PfadName+dateiname);

            // Datei versenden
            with IdMsgSend do
              begin
                IdMsgSend.MessageParts.Clear;
                TIdAttachment.Create(IdMsgSend.MessageParts,PfadName+dateiname);
                From.Text:=Absender;
                Recipients.EMailAddresses:=daten.EMail;
                Subject:='test';
                SMTP.Connect;
                try
                  SMTP.Send(IdMsgSend);
                finally
                  SMTP.Disconnect;
                end;
              end;

            DeleteFile(PfadName+dateiname);
          end;

      until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
    end;
end;

Ich bin mir nicht wirklich sicher, ob das Problem wirklich im Quellcode (bzw. in dieser Prozedur)liegt. Der Pfadname wird per INI-Datei eingelesen. Egal welchen Pfad ich auch nehme, auch ein frisch angelgter Ordner und ein lokaler Zugriff bringt den Fehlercode 5. Kommentiere ich diese Prozedur vom Programmablauf aus, dann gehts...! Auch der DB-Aufruf innerhalb der Prozedur hat KEINEN Einfluss. Kommentiere ich diesen aus, erhalte ich trotzdem den Fehler.
Ich selbst bin kein großer Delphi-Programmierer, verstehe aber die Logik und den Quelltext sehr gut. Entsprechend ist der Code im Original nicht von mir selbt geschrieben.

Vielen Dank schonmal für Eure Hilfe!