Typorisierte Datei wird nicht gelesen

[Union]

Müsste es nicht vilmehr so heißen:
Seek(Datei, i*Sizeof(TFunktion));