ShellExecute startet das Programm nicht...

[Wheelie]

Musst die Eigenschaft ofNoChangeDir des OpenDialogs True setzen:

OpenDialog1.Options.ofNoChangeDir := True;