Danke für den Tipp!
Der Fehler wird in der Zeile angezeigt, wo Begin steht...
Delphi-Quellcode:
var
fh : file of PData;
datap : PData;
y, posi,seekk : integer;
gefunden : boolean;
fname, filep : string;
begin //->Hier
filep := OpenDialog1.FileName;
//Name der ausgewählten Datei auslesen
pos('.txt',filep);