ayuda con la asignacion de objetos

[jfer]

Hola, espero que estes bien, disculpa por las molestias pero soy nuevo usando delphi y queria pedirte una ayuda es sobre asignacion de delphi.

pasa que tengo estas definiciones:

Código Delphi [-]
PNodo= ^TNodo;
TNodo = record
Elem: TObject;
Suce: PNodo;
Pred: PNodo;
end;
TLista = class
Tam: word;
Prim: PNodo;
Ulti: PNodo;
constructor NewLista; 
procedure InserInicio( n: PNodo); 
function TomarPrim(): PNodo;
{y otros metodos} 
end;

TLugar = class
Xpos, Ypos: Integer; 
Tam: Integer; 
Color: Byte; 
Nombre: String[LongNom] ; 
Tipo: Integer; 
ColorMa: Byte; 
Marca: LongInt; 
MarcaVieja: LongInt; 
Timing: Boolean; 
procedure IniLug(Xp,Yp, Taman:Integer; Col,ColMa:Byte; 
 Mar:LongInt; Nom:String; Tip:Integer) ;
end;

y cuando ago algo como esto

var
Nod: Pnodo;
Lug: Tlugar;
Lis: TLista;
begin
Lug:= TLugar.create;
Lug.IniLug(' bueno aca van todos los parametros') ;
New(Nod);
Nod^.elem:= lug; 
Lis:= TLista.NewLista;
Lis.InserInicio( Nod); //hasta aca va todo bien

//hasta aqui

nod:= Lis.TomarPrim; 
Lug:= Nod^.Elem;

me salen errores que no se como solucionarlo y si o si tengo que hacer esta asignacio, si vos sabes que es lo que esta ocurriendo me podrias explicar como solucionarlo o que es lo que tengo que hacer.

Desde ya muchas gracias.