[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;