Mehrere Einträge aus der Access in einem DB Memo?

[Delphi Code Anfänger]

Habe es eben getestet. Passiert nichts?

Habe ich was falsch gemacht?

Delphi-Quellcode:

ADOQuery1.Active:=false;
 ADOQuery1.Sql.Clear;
 ADOQuery1.Sql.Add('SELECT * FROM namederdatenbank WHERE test like '+ QuotedStr(DBEdit1.Text));
 ADOQuery1.Active:=true;
 ADOQuery1.Next;
 DBMemo1.Lines.add( ADOQuery1.FieldByName('test').Value);
 ADOQuery1.Next;