Rufst du auch die Execute-Methode vorher auf?
Delphi-Quellcode:
if OpenDialog1.Execute then
begin
Edit1.Text := OpenDialog1.Filename
...;
end;
Nachtrag: Würdest du bitte die Thread Überschrift ändern? "Delphi spinnt" ist erstens nicht richtig und zweitens nicht sehr aussagekräftig.