Как определить имя директории Windows

Для этого можно воспользоваться API функцией GetWindowsDirectory.

Для системной директории используется API функция GetSystemDirectory().

Пример:

{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
var
  a : Array[0..MAX_PATH] of char;
begin
  GetWindowsDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));
  GetSystemDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));
end;