[Gamer09]

2. Стоит ограничение на вывод в 1 запись.
а здесь стоит ограничение? а то только одну запись выводит в мемо, хотя по SQL запросу должно быть много:

Код:

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;