[dec]

Hola,

Supongo que esto no te valdrá:

Código Delphi [-]
 RichEdit1.Lines.Add('a'); // esto...
 RichEdit1.Lines.Append('a'); // o esto otro...

O tal vez puedas probar con algo así:

Código Delphi [-]
 var
   linea: string;
   numLinea: integer;
 begin
   numLinea := RichEdit.Lines.Count-1;
   linea := RichEdit.Lines.Strings[numLinea];
   linea := linea + 'a';
   RichEdit.Lines.Strings[numLinea] := linea;
 end;