dateizugriff verweigert bei beliebigen Ordner-Zugriff

[Flummi]

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 
  ShowMessage(INIPfadname); 
  ShowMessage(PfadName); 
  // Dateien suchen 
  if FindFirst(PfadName+'*.*',faAnyFile,SearchRec)=0 then 
    begin 
      repeat 
        dateiname:=SearchRec.Name; 
        ShowMessage(PfadName+dateiname); 
        // Daten aus der DatenBank holen 
        Daten:=DepotSuchen(copy(dateiname,4,3));
        If (SearchRec.Attr And faDirectory = 0) then 
... 
...     DATEI-VERARBEITUNG.....
... 
...

Es scheint zu laufen. Ich warte noch ein wenig die ersten Ergebnisse ab, die kann ich erst immer ein wenig später prüfen, aber der Fehler ist weg, die Dateien werden abgearbeitet und zum Schluss gelöscht.
Ich melde mich noch mal... Bis jetzt sieht es supi aus!