1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

WoExe := ExtractFilePath(Application.ExeName);
OpenDialog1.FileName := WoExe;
  if OpenDialog1.Execute then
   begin

    AssignFile(text_datei, OpenDialog1.FileName);
    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
    Reset(text_datei);             // reset öffnet eine vorhandene Datei
    if not ((IOResult = 0) and (openDialog1.FileName <> '')) then
     begin
      MessageDlg('Es konnte keine Datei geladen werden!',mtError, [mbOK], 0);
      Exit;
     end;
   end					

1:

extractFileDir(paramstr(0))