RenameFile funktioniert nicht !!!

[Metallicwar]

Hallo zusammen, habe zwar über die SuFu schon einige Threads zu "RenameFile" gefunden, aber keins, das mir bei meinem Problem wirklcih weiterhilft.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iDatensätze: Integer;
  sNeueDatei: String;
  sAlteDatei: String;
begin
  qMensch.SQL.Text := 'SELECT Name, Vorname, Geburtsname FROM Mensch';

  qMensch.Open;

  qMensch.First;
  for iDatensätze := 0 to qMensch.RecordCount - 1 do
    begin
      sNeueDatei := qMensch.FieldByName('Name').AsString + '_' + qMensch.FieldByName('Vorname').AsString; // --> heißt dann z.B. Mark_Mustemann.txt
      sAlteDatei := qMensch.FieldByName('Geburtsname').AsString; --> z.B. MarC_Mustermann.txt
      //ShowMessage(sNeueDatei);
      SysUtils.RenameFile(sAlteDatei, sNeueDatei);//--> ändert den namen einfach nicht
      qMensch.Next;
    end;
end;

end.

Hab in einem anderen Beitrag gelesen, dass RenameFile nurfunktioniert, wenn die Datei im selben Verzeichnis liegt.
Kann mir jmd sagen, wieso, RenamFile bei mir nicht funktioniert?
mfg David