10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

{ ... }
procedure TFormMain.StartExcel(s: pchar);
begin
  if FileExists('C:\Programme\Microsoft Office\Office12\Excel.Exe') then
    s := Pchar('C:\Programme\Microsoft Office\Office12\Excel.Exe ' + s)
  else if FileExists('C:\Programme\Microsoft Office\Office11\Excel.Exe') then
    s := Pchar('C:\Programme\Microsoft Office\Office11\Excel.Exe ' + s)
  else
    s := Pchar('C:\Programme\Microsoft Office\Office10\Excel.Exe ' + s);

    WinExec(s, SW_shownormal);
end;