hat sich schon erledigt, wens interessiert:
Code:
procedure Tprog.Button4Click(Sender: TObject);
var F1:Textfile;
s:single;
datei: string;
begin
//Daten in Edits einladen
opendialog1.execute;
datei:=opendialog1.FileName;
AssignFile(F1,datei);
reset(f1);