uses System.IOUtils; 
 
   doku := TPath.GetDocumentsPath; // z.B. 
 
// Variante 1, nicht empfohlen, da Warnmeldung 
  doku := IncludeTrailingBackslash(doku); 
 
// Variante 2, empfohlen 
  doku := IncludeTrailingPathDelimiter(doku); 
 
//------------------------------------- 
 
// für alte Delphi-Versionen 
    if AnsilastChar(doku) <> '\' then 
    doku := doku + '\';