Probleme mit Try Ecxept und ShellExecute

[derzwent]

Hallo allerseits,
habe da folgendes Problem: Ich möchte meine Programme (in diesem Fall Thunderbird und Firefox) über
jeweils eine Checkbox auswählen und durch ButtonClick öffnen.
Da aber das Thunderbird in einer mit TrueCrypt verschlüsselten Festplatte (Drive X) liegt, muß ich diese zuvor mit TrueCrypt mounten.
Mit Try Ecxept möchte ich nun erreichen, daß sich Thunderbird sofort öffnet, falls 'X' schon gemountet ist. Wenn 'X' allerdings nicht gemountet ist, soll sich TrueCrypt öffnen und nach dem mounten dann Thunderbird.

Hier nun mein Quellcode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
        if
         CheckBox1.Checked then
          shellexecute (handle, 'open', 'C:\Programme\Mozilla Firefox\Firefox.exe', nil, nil, sw_shownormal);

        if
         CheckBox2.Checked then
         begin
          try
           shellexecute (handle, 'open', 'X:\Thunderbird\Thunderbird.exe', nil, nil, sw_shownormal);
          except
           shellexecute (handle, 'open', 'C:\Programme\TrueCrypt\TrueCrypt.exe', nil, nil, sw_shownormal);
          end;
         end;

Ich hoffe ihr könnt mir da mal helfen.
Danke schonmal.
P.S. Bin noch blutigster Anfänger!

[edit=Sharky]Quoting-Tags durch Delphi-Tags ersetzt. Mfg, Sharky[/edit]