[Gamer09]

Вопрос... почему выдаёт только одно слово в мемо??? хотя их должно быть много.
если меняю Fields[0] на Fields[1] выдаёт ошибку... не понимаю, объясните пожалуйста.

Код:

procedure TfMain.Button1Click(Sender: TObject);
var lostS,f: string;
begin
  Memo1.Clear;
  lostS:=Edit1.Text;
  f:=lostS;
begin
 with fMain.ADOQuery1 do
    begin
      Close;
       SQL.Clear;
       SQL.Add('SELECT Name');
       SQL.Add('FROM WORDS');
       SQL.Add(Format('WHERE Name LIKE %s',[QuotedStr('%'+f+'%')]));
       Open;
    Memo1.Lines.Add(fMain.ADOQuery1.Fields[0].AsString)
    end;
  end;
end;