如何向memo写入sql里的列数据

怎么向memo写入sql里的列数据
我写的 代码只能把第一行的数据写入,无法写入剩余的数据,需要怎么修改?
with DataModule2.adoquery5 do
  begin
    Close;
    SQL.Clear;
    SQL.text:='select 条形码 from dbo.仓库 WHERE 单据编号 like'+#39+'%'+trim(edit1.Text)+'%'+#39;
    Open;

  end;
  memo1.text:=DataModule2.adoquery5.FieldByName('条形码').Value;
------解决方案--------------------

with DataModule2.adoquery5 do

  begin

    Close;

    SQL.Clear;

    SQL.text:='select 条形码 from dbo.仓库 WHERE 单据编号 like'+#39+'%'+trim(edit1.Text)+'%'+#39;

    Open;


    if recordcount = 0 then exit;

    first;

    while not eof do

    begin

      memo1.Lines.Add(DataModule2.adoquery5.FieldByName('条形码').Value);

      Next;

    end;

  end;

------解决方案--------------------
应该使用数据集Next循环代码：

  with DataModule2.adoquery5 do

  begin

    SQL.Clear;

    Memo1.clear;

    Open;

    first;

    while not eof do

    begin

      memo1.Lines.Add(DataModule2.adoquery5.FieldByName('条形码').Value);    

      Next;

    end; 

    close;

  end;