{$STATIC ON}
{$mode objfpc}
unit u4volvo;
interface
uses UT,classes;
Type
	TNode = record      
		U:UserTipe;
		end; 
	C = ^MyC;
	MyC = class
		List: TFPList; STATIC;
		class procedure Metod2(const Node:TNode);
		class	procedure Metod2();
		end;
implementation	
procedure MyC.Metod2(const Node:TNode);
var 
	p: ^TNode;
begin
	new(p);
	p^:=Node;
	self.List.Add(p);
end;

procedure MyC.Metod2();
var 
	SomeU:UserTipe;
	PUser : ^UserTipe;
begin
	SomeU := PUser(List[0])^;//сохраняем поле обьекта				<---ОШИБКА!!!
	MyС(MyList[0]).Free; //освобождаем объект
	MyList.Delete(0); //удаляем ссылку на него 
end;