dateizugriff verweigert bei beliebigen Ordner-Zugriff

[Flummi]

Hallo,

danke für den Tipp, eventuell bin ich einen kleinen Schritt weiter. Ich habe den Anfang der Prozedur wie folgt verändert:

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));
...
...
...
...

Der INIPfadname und der Pfadname werden richtig ausgegeben. In meinen Test habe ich die Werte:

INIPfadname = D:\Test\
Pfadname = D:\Test\Dateien\

...erhalten. Die Backslashes werden also auch richtig gesetzt.
Die dritte Message macht mich allerdings stutzig :

"D:\Test\Dateien\."

Die Dateinamen bestehen hauptsächlich aus Zahlen, es wird mir aber ein "." (Punkt) zurückgegeben. Das Programm hat jedoch Admin-Rechte bzw. wir unter dem Admin-Account ausgeführt.
Hat jemand eine Idee?

Vielen Dank schonmal...