[ined]

эх не получилось, что я хотел.

Код:

procedure BoolMem(var p:pointer; NewSize:cardinal);
begin
  if Assigned(p) then FreeMem(p,MSize);
  GetMem(p,NewSize);
  MSize:=NewSize;
end;

MSize - это предыдущая длинна.
Условие таково, что бы при первичном входе в эту процедуру не срабатывал FreeMem.
Что можете предложить по этому вопросу?