procedure TForm1.FormCreate(Sender: TObject);
var
SysDir: pchar;
begin
GetMem(SysDir,250);
GetSystemDirectory(SysDir,250);
ShowMessage(SysDir);
FreeMem(SysDir);
end;
var
SysDir: pchar;
begin
GetMem(SysDir,250);
GetSystemDirectory(SysDir,250);
ShowMessage(SysDir);
FreeMem(SysDir);
end;