Smerniky- prosim o radu – Delphi – Fórum – Programujte.com

Ahojte, chcel by som Vas velmi pekne poprosit, ci by ste mi vedeli pomoct s nasledovnym problemom :
- neviem ako si mam poradit s tymto. Ved sa pozrite sami...

trecord = Record { Struktura udajov }
datac: LongInt; { nejaka ciselna polozka }
platn: Boolean; { platnost }
length: Byte; { dlzka zaznamu }
next : Pointer; { smernik na nasledujucu polozku }
pointx: pstring; { smernik na samotny udaj }
End;
tpointa = ^trecord;

trecordH = Record { Struktura Headra }
data : string12; { JEDNOZNACNYnazov Headra }
datah: Pointer; { smernik na 1.zaznam podriadenej struktury }
dataa: trecord {tpointa}; { smernik na aktulany zaznam podr. -"- }
next : Pointer; { smernik na nasledujuci header }
pocd : LongInt; { pocet viet v podriadenej strukture }
End;
tpoint = ^trecordH;
.
.
fcth : tpoint;
.
.
a potreboval by som urobit toto:
.
.
fcth^.dataa:=tprva;
.
.
fcth^.dataa^.next:=tprva;
fcth^.dataa:=tprva;

Keby ste mi niekto vedeli pomoct s tymto problemom, tak Vam budem velmi vdacny. Sam si s tym neporadim. Viem o tom, ze smerniky iba odkazuju na adresu v pamati, ale neviem ako to mam zapisat.
A este by som sa opytal, ci niekto nevie, kde je chyba v tejto f-cii:

Seek(FileTemp,FileSize(FileTemp));

kde FileTemp :textfile;

Este raz Vas prosim, pomozte, ak mate nejaky napad. Fakt budem velmi vdacny..