Brian

Have you tried using regex? uses ... System.RegularExpressions; ... try ... // some database function except on E: EFDDBEngineException do begin ShowMessage(TRegEx.Replace(E.Message, '\[[^\]]*\]', '')); end; on E: Exception do begin ShowMessage('An unexpected error occurred: ' + E.Message); end; end;

You can't. In SSL, public key is used to encrypt and private is to decrypt.

type TComboboxHelper = class helper for TCombobox public procedure DoOnChange; end; implementation { TComboboxHelper } procedure TComboboxHelper.DoOnChange; begin if Assigned(OnChange) then Onchange(Self); end; I would put this to a helper to save me problems when I change the procedure on combobox OnChange. procedure TForm1.Panel1_Click (Sender: TObject); begin ComboBox1.ItemIndex := 1; ComboBox1.DoOnChange; end;