====== Descrição ======
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.
====== Implementação ======
===== Delphi =====
<code pascal>
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;
</code>