Posicionar al inicio de un TMemo
 

Hola nuevamente.
Mi consulta ahora es como puedo mostrar un TMemo pero no que se posicione al final sino al principio del mismo.

El codigo que uso para cargar el memo es este:

Código Delphi [-] mScript.Clear; mScript.Lines.Add(QNews.FieldByName('DBN_DATA').AsString);


y sucede que siempre queda el cursor al final del memo.
Alguna idea?

Gracias.

Código Delphi [-]
mScript.SelStart := 1

// Saludos

Ya lo había probado de esa manera pero no funciona.

De hecho es

Código Delphi [-]
mScript.SelStart := 0; // no 1 como había puesto

Y esta es la forma de mover el cursor. Si no funciona será entonces porque hay algún otro código y/o evento que está interfiriendo.

// Saludos

codigo posicion tmemo
 

saludos.
A mi me funciona de esta manera.

Código Delphi [-]
  mmo1.SelStart:=0;
   mmo1.Perform(EM_SCROLLCARET, 0, 0);