Unfortunately this is not possible now. Anyway next minor release will have a new event named OnTextEdit (that is like OnActivateTextEdit with more parameters) that passes the editing visual object, so you can better control it.
For example, in order to select all text whenever a text edit is edited you can write (FROM NEXT MINOR RELEASE!!):
procedure TForm1.ImageEnVect1TextEdit(Sender: TObject; hobj: Integer; VisualObject: TObject);
begin
if VisualObject is TEdit then
(VisualObject as TEdit).SelectAll;
end;