{$STATIC ON}	{$mode objfpc}
unit u4volvo;
interface
uses UT,classes;
Type
	PUser = ^UserTipe;			{<--обьявил}
	
	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;
	P : PUser;					{<---назначил}
begin
	SomeU := P(List[0])^;			{<---ошибка}
	MyС(MyList[0]).Free; 
	MyList.Delete(0); 
end;