1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm2.Button1Click(Sender: TObject);
begin
if processExists('winword.exe') then
     WriteToMSWord(RichEdit1.text)
     WordApplication1.Selection.TypeText('Test'+ #13#10)
  else
    ShellExecute(Application.Handle, 'open', PChar('.C:\Program Files\Microsoft Office\OFFICE11\winword.exe'),'','',SW_SHOW);
    WriteToMSWord(RichEdit1.text)
     WordApplication1.Selection.TypeText('Test'+ #13#10)
end;					

1:
2:

[Error] Unit2.pas(185): Missing operator or semicolon
[Error] Unit2.pas(185): Missing operator or semicolon					

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

implementation
uses ComObj;
{$R *.dfm}
Function GetTempDir: String;
var
  P: Pchar;
begin
  P := stralloc(255);
  GetTempPath(255, P);
  Result := P;
  strdispose(P);
end;


procedure TForm2.Button1Click(Sender: TObject);
var
 Word, Document:OleVariant;
 fn:String;
begin
   fn := IncludeTrailingBackSlash(GetTempDir) + '~tmp.rtf';
   Richedit1.Lines.SaveToFile(fn);
   Word := CreateOleObject('Word.Application');
   Document := Word.Documents.Add(fn);
   Word.Visible := true;
   Deletefile(fn);
end;					

1:

[Error] Unit2.pas(185): Missing operator or semicolon