[Harald]

С этой проблемой разобрался.
Укажите пожалуйста ошибку в коде:

Код:

procedure TForm4.Button1Click(Sender: TObject);
Var
  i,a:byte;
begin
  ListBox1.Clear;
  a:=0;
  for i:=1 to ClientDataSet1.FieldCount do 
    Begin
        if Edit1.Text=ClientDataSet1['Поиск'] then
          Begin
            ListBox1.Items.Add(ClientDataSet1['Заголовок']);
            a:=1;
          End;
        ClientDataSet1.Next;
    End;
  if a=0 then ListBox1.Items.Add('Google тебе в помощь');
  ClientDataSet1.First;
end;

procedure TForm4.Button2Click(Sender: TObject);
Var
  i:byte;
begin
  Memo1.Clear;
  for i:=1 to ClientDataSet1.FieldCount do 
    Begin
        if ListBox1.Items[ListBox1.ItemIndex]=ClientDataSet1['Заголовок'] then
          Begin
            Memo1.Lines.LoadFromFile ('..\..\Teoria\'+ClientDataSet1['Адрес']);
          End;
        ClientDataSet1.Next;
    End;
end;

lmikle: Пользуемся тегами!!!

Программа должна искать по всей бд указанное в Edit1 наименование. На деле же поиск дальше 2 строки не идет