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

function tBuchMain.Word_vorhanden: boolean;
begin
  Word_vorhanden := false;
  try
    MSWord := CreateOleObject('Word.Application');
    Word_vorhanden := true;
    MSWord := unassigned;
  except
    ShowMessage('Word kann nicht gestartet werden!');
    Word1.enabled := false;  // ist TMenuItem
    Exit;
  end;
end;					

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:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure TMainform.Button1Click(Sender: TObject);
begin
  Label1.Caption := IstProgrammVorhanden(Edit1.Text); // z. B. "winword" oder "winrar.exe"
  if Label1.Caption <> 'Nicht gefunden.' then
    if FileExists(Label1.Caption) then
      Label2.Caption := 'Datei ist auf der Platte vorhanden.'
    else
      Label2.Caption := 'Datei fehlt auf der Platte!';
end;

// uses Registry;
function TMainform.IstProgrammVorhanden(ProgName: string): string;
var
  Reg     : TRegistry;
  TempStr : string;
begin
  Result := 'Nicht gefunden.';
  TempStr := '\Software\Microsoft\Windows\CurrentVersion\App Paths\' + ProgName;
  if Pos('.EXE', UpperCase(ProgName)) = 0 then
    TempStr := TempStr +'.Exe';
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKey_Local_Machine;
    if Reg.OpenKeyReadOnly(TempStr) then     // nur Lesezugriff
      begin
        Result := Reg.ReadString('');        // '' = Standard-Schlüssel
        if Pos('~', Result) > 0 then         // kurze Pfadnamen?
          begin
            TempStr := ExtractFileName(Result);
            Result := Reg.ReadString('Path');
            if AnsiLastChar(Result) <> '\' then
              Result := Result + '\' + TempStr
            else
              Result := Result + TempStr;
          end;
      end;
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;