Mostrar primera linea de un campo Tmemo
 

Compañeros del club.
Estoy llenando un campo Tmemo con datos de una base de datos, y el campo contiene un scroll bar vertical. Uso Delphi 7.
El asunto es que cada vez que se llena el campo TMemo, se queda mostrando la última linea que se llenó, y para ver la primera tengo que usar el scroll bar para verla. Lo que necesito es que siempre que se llene el campo TMemo, se muestra la primera linea de texto, y no la última.
Estoy tratando de hacer lo siguiente pero no me funciona.

Código Delphi [-]
 
Memo1.Clear;
while not QRYLOGS.Eof do
  begin
  Memo1.Lines.Append(QRYLOGS['Mensaje']);
  Memo1.Lines.Append('---o---');
  QRYLOGS.Next
  end;
Memo1.Lines[0];
Memo1.SelStart := 0;
Memo1.SetFocus;
NumFolio.SetFocus;

El último setfocus lo utilizo para dejar el campo que necesito que se teclee activado, y que no quede activado el campo Memo.
Gracias de antemano por su amable ayuda.
Saludos y un excelente año 2009.

Compañero,

• Para seleccionar la primera línea del Memo, también con SelLength
• Siempre aconsejo usar "AsInteger, AsString, etc." para acceder a campos de un DataSet

Código Delphi [-]
Memo1.Clear;
while not QRYLOGS.Eof do
  begin
    Memo1.Lines.Add(QRYLOGS.FieldByName('Mensaje').AsString);
    Memo1.Lines.Add('---o---');
    QRYLOGS.Next;
  end;
Memo1.SelStart := 0;
Memo1.SelLength := 0;

Compañero TOPX.

Muchas gracias por la respuesta... el SelLength era lo que nenecistaba... ya funciona tal como lo necesito.

Muchos saludos, y espero poder corresponder algún día...

Compañero TOPX,

Disculpa que continue esto despues de tanto tiempo. pero me surgió la duda del por que utilizar AsString, AsInteger, etc. ¿Que ventajas se tiene con esto?
Normalmente no lo uso así, pero no quisiera que en ocasiones mi codigo funcione erroneamente por no usar lo que tu aconsejas.

Gracias.

Gracias a mi tb me sirvió