Freemem Опции

[ангел]

Ошибка у меня возникает при вызове этой процедуры...
Либо указатель пустой или число освобождамых байтов выходит за границы кучи ???
вот код:

procedure Push(E:ElementType;var S:Stack);
var
P:pStackElem;
begin
	 P:=new(pStackElem);
	 GetMem(P^.Elem,SizeOf(ElementType));
	 Move(E,P^.Elem,SizeOf(ElementType));
	 P^.Next:=S.Top;
	 S.Top:=P;
	 S.Size:=S.Size+Sizeof(ElementType)+SizeOf(pStackElem)*2+SizeOf(Pointer);
end;

procedure Pop(S:Stack;var E:ElementType);
var top:pStackElem;
begin
	 if S.Top<>nil then
	 begin
	 Move(S.Top^.Elem,E,SizeOf(ElementType));
	 top:=S.Top^.Next;
		 FreeMem(S.Top^.Elem,SizeOf(ElementType));{Вот здесь и возникает ОШИБКА!!!}
	 dispose(S.Top);
	 S.Top:=top;
	 S.Size:=S.Size-Sizeof(ElementType)-SizeOf(pStackElem)*2-SizeOf(Pointer);
	 end
end;

[int64]

еще один вопрос касаемый реализации стека...
Размер одного элемента стека.
Я таким образом его задал -

Код

sizeOne=Sizeof(Element)+SizeOf(pStackElem)*2+SizeOf(Pointer);

исходя из определенных типов данных

Код

StackElem = record   {Элемент стека}
              Elem:Pointer;       {указатель на данные}
              Next:pStackElem;
              end;
    Stack = record
          Top: pStackElem;
          Size: Integer;
          end;
    Element = record
            .....
            end;

я правильно рассудил?