dlgCombo.Text := 'Select one of these options:';
dlgCombo.Options.Clear;
dlgCombo.Options.Add ('Logoff');
dlgCombo.Options.Add ('Restart');
dlgCombo.Options.Add ('Shutdown');
dlgCombo.Options.Add ('Standby');
If dlgCombo.Select = mrOK
Then ShowMessage (dlgCombo.Options [dlgCombo.ItemIndex]);
|