Usa la variable del sistema %HOMEPATH% para averiguar el dato que necesitas.
Puedes usar esta función:
Código Delphi
[-]
function GetEnvVarValue(const VarName: string): string;
var
BufSize: Integer; begin
BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);
if BufSize > 0 then
begin
SetLength(Result, BufSize - 1);
GetEnvironmentVariable(PChar(VarName), PChar(Result), BufSize)
end
else
Result := '';
end;
%HOMEPATH% contiene el valor: C:\Documents and Settings\
UserName, ya solo le tienes que agregar el resto de la ruta deseada.
Saludos...