Question : How to know when a TMemo's control has had text selected?

I am trying to enable/disable a button & menu item based on whether or not a TMemo's text has been selected

I dont see an event that triggers when text is selected...so how can i trap for it?

Answer : How to know when a TMemo's control has had text selected?

procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  button1.Enabled := (Sender as TMemo).SelLength > 0;
end;