La tecla suprimir la puedes anular así :
Código Delphi
[-]procedure TuProgama.ComboKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = KEYSUPR then
abort;
end;
El código de la tecla suprimir creo que era el 46
En cuanto al PopUp puedes eliminarlo en el evento OnContextPopup.
Código Delphi
[-]procedure TuPrograma.ComboContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
abort;
end;
Un saúdo.