Pasar datos de una tabla a un memo

[Cosgaya]

hola roman gracias por lo del otro dia (pasar la informacion de una tabla a un memo y cuando acabe con el primer memo seguir con el otro, cuando cada memo tenia un max. 200 caracteres), pero no consigo hacer para que cuando acaba con el primer memo siga con el siguiente no se como insertarlo
si pudieras ayudarme
muchas gracias

procedure TForm3.Button1Click(Sender: TObject);

begin
with form2.table1 do
begin
First;
Repeat
memo1.lines.add (FieldByName('Anuncio').AsString + ('-------'));
Next
Until (FieldByName('Anuncio').AsString = ' ')
or EOF
end;