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

if checkbox.checked
 then
  if messagedlg('Soll Externes Programm strarten?'{...})=mryes
   then
    if shellexecute({...})<= 32  
     then
      showmessage('Fehler bei Shellexecute')
 else
  showmessage('Hinweis 1');					

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

if checkbox.checked then 
begin
  if messagedlg('Soll Externes Programm strarten?'{...})=mryes then 
    if shellexecute({...})<= 32 then 
      showmessage('Fehler bei Shellexecute'); 
end
else 
  showmessage('Hinweis 1');