Convertendo pchar para string

Var
sWinDir: AnsiString;
nTam: Integer;
Begin
nTam := MAX_PATH;
SetLength(sWinDir,nTam);
GetWindowsDirectory( PChar( sWinDir ), nTam )
SetLength(sWinDir,nTam);
End;