【列表6.2】 來自SigNameMain.pa$.組合事件處理器。
procedure TSigNamesForm. SigValComboClick(Sender: TObject);
var
 SigVal : Integer;
begin
 SigVal := -1;
 NamePanel.Caption := ' ';
 if SigValCombo. ItemIndex >= 0
   then begin
            try
             SigVal  := SigValCombo. ItemIndex + 1;
            except
             on Exception do MessageDlg('Error', 'Invalid value',
                   mtError, [mbOK], 0);
            end; { try }
            if (SigVal >=0) and (SigVal < NSIG)
             then NamePanel.Caption := ' ' + strsignal(SigVal)
             else MessageDlg('Error', 'Signal value out of range', mtError,
                          [mbOK], 0);
          end;
end;