Как обратится к рабочему столу

memo1.Lines.SaveToFile('C:\Users\Николай\Desktop\555.txt');

function GetUserDesktop: string;
var Reg: TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',
  false);
  Result:=reg.ReadString('Desktop');
  Reg.Free;
end;

DFolder:=GetUserDesktop;

memo1.Lines.SaveToFile(DFolder+'\555.txt');

uses ..., ShlObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Path: array [0..MAX_PATH] of Char;
begin
  ShGetSpecialFolderPath(Application.Handle, Path, CSIDL_DESKTOPDIRECTORY, False);
  ShowMessage(Path);
end;

...
uses Windows,ShlObj;
...
function gDesktop:string;
var a:array[0..MAX_PATH]of char;
begin
  SHGetFolderPath(0, CSIDL_COMMON_DESKTOPDIRECTORY, 0, 0, a);
  result := a;
  result := result + '\';
end;

SHGetFolderPath(0, CSIDL_DESKTOPDIRECTORY, 0, 0, a);