procedure TForm1.Button1Click(Sender: TObject);
var
  Buf : PChar;
begin
  // Alokasi memori buffer
  Buf := AllocMem(MAX_PATH + 1);
  // Baca direktori sistem -> disimpan di variabel Buf
  GetSystemDirectory(Buf, MAX_PATH);
  // Tampilkan pada komponen Edit1
  Edit1.Text := Buf;
  // Bebaskan memori yg dialokasikan untuk Buf
  FreeMem(Buf);
end;