type
  psearchrec=^longint;

Var Sr : PSearchrec;

begin
  Sr := New(PSearchRec);
end.