[jachguate]

Para hacerlo en la misma linea, como parece que lo queres hacer, te funcionaría algo como:

Código Delphi [-]
If memo1.lines.count > 0 Then
  memo1.lines[0] := caracter + memo1.lines[0]
else
  memo1.lines.add(caracter);

Hasta luego.