Kann das leider gerade nicht testen aber hat TFileStream nicht ne Eigenschaft FileName???
Dann müsstest du nur noch folgendes hinzufügen:
Code:
if opendialog1.execute then Stream.Filename:=opendialog.filename
Im übrigen ist es nicht gerne gesehen wenn Du hier zwei mal das selbe Problem postest...
Du kannst alles was von Dir ist auch im nachhinein ändern, indem Du ganz oben auf ändern drückst...
(für's nächste Mal...)
