dateizugriff verweigert bei beliebigen Ordner-Zugriff

[Flummi]

So...

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
   If (SearchRec.Attr And faDirectory = 0) then 
    begin 
      repeat 
        dateiname:=SearchRec.Name; 
        ShowMessage(PfadName+dateiname); 
        // Daten aus der DatenBank holen 
        Daten:=DepotSuchen(copy(dateiname,4,3)); 
... 
... 
... 
...