1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Result := ExtractFilePath(ParamStr(0));
ShowMessage(Result);


Result := ExtractFilePath(ParamStr(0));
       ShellExecute(Application.Handle, PChar('open'), PChar(Result+'Verkauf-Ohne-Garantie.doc'), nil, nil, SW_SHOW);

       vWhat:=wdGoToBookmark;
       {WordApplication1.Connect;
       WordApplication1.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                         EmptyParam, EmptyParam, EmptyParam, EmptyParam);
       WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
       WordApplication1.Visible := True;}

       vBookmark:='Name';
       WordApplication1.Selection.GoTo_(vWhat,emptyParam,emptyParam,vBookmark);
       WordApplication1.Selection.TypeText(Name.Text);

       vBookmark:='geb';
       WordApplication1.Selection.GoTo_(vWhat,emptyParam,emptyParam,vBookmark);
       WordApplication1.Selection.TypeText(Geb.Text);					

1:
2:

WordApplication1.Disconnect;
WordApplication1.Connect;