Hola,
si estas derivando tu componente de TCustomEdit, puedes hacer un override del metodo click:
Código Delphi
[-]
type TMyEdit = class(TCustomEdit)
...
public
procedure Click; override;
...
end;
...
procedure TMyEdit.Click;
begin
inherited Click;
end;
si lo que estas haciendo es un componente desde scratch, no derivado de TControl, entonces tendras que procesar los mensajes del raton. Saludos