ayuda con la asignacion de objetos

[jfer]

bueno el problema es el mismo que dije ante pero esta ves puse el codigo en el archivo adjunto


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. mi correo es [email protected]