// Using large buffers without using GetMem()

var
  s0 : string;
  s : PChar;
  p : Pointer;

begin
  // Allocate 1 MB, it will be automaticly dealocated by Delphi when
  // terminating the application or leaving a function or procedure.
  SetLength(s0, 1048576);
  s:=PChar(s0);
  p:=Pointer(PChar(s0));
end.