Uses CLIPBrd....
Select the text UniEdit and click the right mouse button and run context menu .
procedure TMainForm.CommentEditMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
UniPopupMenu1.Popup(828+X,Height+18+Y);
end;
When I want to copy the selected uniedit text.
procedure TMainForm.N1Click(Sender: TObject);
begin
Clipboard.Clear;
Clipboard.AsText:=CommentEdit.Text;
end;
After right-clicking the selection text disappears.