[M.i.d.n.i.g.h.t Software]

Сообщение от M.A.D.M.A.N.

с вставкой в место курсора надо?

Код:

procedure TfrmMain.OnKeyClick(Sender: TObject);
var Symbol:String;
    _cursorpos:Integer;
    Temp,temp2:String;
begin
  Symbol:=(Sender as TSpeedButton).Caption;
  SendMessage(memFunc.Handle, EM_GETSEL, LongInt(@_cursorpos), 0);
  Try
    Temp:=Copy(memFunc.Text,1,_cursorpos);
    Temp2:=Copy(memFunc.Text,_cursorpos+1,Length(memFunc.Text));
    memFunc.Clear;
  Finally
    memFunc.Text:=Temp+Symbol+Temp2;
  End;
  SendMessage(memFunc.Handle, EM_SETSEL, _cursorpos+Length(Symbol), _cursorpos+Length(Symbol));
end;

Мне в Memo1 нужно

кароче просто превидете полный код этого пункта меню и всё