[TOPX]

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;