[bugmenotagain]

точно. Я не программист, и код pascal для меня как китайский.

Код:

procedure CurStepChanged(CurStep: TSetupStep);  
var   
 ResultCode: Integer; 
 begin   
if (CurStep = ssDone) then begin  
 if (IsComponentSelected('port')) then begin  
 Exec(ExpandConstant('{app}\uninstall\unins000.exe'), ' /VERYSILENT', ExpandConstant('{app}\uninstall'), SW_SHOW, ewNoWait, ResultCode); 
  if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{60F3D1CB-B2A7-46E7-92B0-93526131061D}_is1')
 then;   
end; //if (IsComponentSelected('port'))
 end; //if (CurStep = ssDone)
 end;  //CurStepChanged

у меня так и все работает.