StringGrid - zaznacz tekst

Jak w temacie:

//SG:TStringGrid;
//SG.Options:=SG.Options+[goEditing,goAlwaysShowEditor]

procedure SetStringGridSelText(SG:TWinControl;SelStart,SelLength:Integer);
var
  Wnd:Integer;
begin
  Wnd:=GetWindow(SG.Handle,GW_CHILD);
  SendMessage(Wnd,EM_SETSEL,SelStart,SelStart+SelLength);
  SG.SetFocus;
end;