Função que insere um texto em um TMemo, a partir da posição do cursor.
Após inserir, posiciona o cursor no final do texto inserido.

procedure InserirTexto(const texto: String; objeto : TMemo);
var
  textoA,
  textoD : String;
  Pos : Integer;
begin
  // Armazena a coluna em que está o cursor
  pos := objeto.SelStart;
 
  // Armazena o texto anterior
  textoA := Copy(objeto.Text,1,POS);
  // Armazena o texto depois
  textoD := Copy(objeto.Text,POS+1,Length(objeto.Text));
 
  // Armazena o texto anterior, o texto desejato, e o texto posterior
  Objeto.Text := textoA +' '+ texto +' '+ textoD;
 
  // Posiciona o cursor logo após o texto inserido
  objeto.SelStart := pos + length(texto) + 1;
end;