Program NewProg;
{$APPTYPE CONSOLE}
Uses Windows;
  
  Function GetWindowsDir: String;
  Begin
    //Заставляем компилер выделить память в строку...
    SetLength(Result, MAX_PATH);
    //Помедитируй немного над этой строкой
    SetLength(Result, GetWindowsDirectory(PChar(Result), MAX_PATH+1));
    //Всё, и нет велосипеда ;-)
  End;
  
  // А вот на PChar, но больше гемора. Зачем работать за компилер?
  Function GetWindowsDir2: String;
  Var aStr: PChar;
  Begin
    GetMem(aStr, MAX_PATH + 1);
    GetWindowsDirectory(aStr, MAX_PATH + 1);
    Result := aStr;
    FreeMem(aStr);
  End;

  Function GetOEMString(Const aStr: String): String;
  Begin
    Result := aStr;
    //Ты слышал что-нибудь про то, что string он немножко того, reference-counted?
    //Если нет, то помедитируй и над этой строкой (ниже), 
    UniqueString(Result); //И подумай над тем, чтобы было бы, если бы её не было ;-)
    ANSItoOEM(PChar(Result), PChar(Result));
  End;

Begin
  WriteLn(GetWindowsDir + GetOEMString(' - Моя конкатенация работает ;-))))))'));
  WriteLn(GetWindowsDir2 + GetOEMString(' - И эта работает ;-))))))'));
End.