[nikotan]

а подскажите у меня на ['Param1'] ругается
если надо их объявить то тоже не работает

Код:

procedure TForm1.Edit1Change(Sender: TObject);
     var Param1, Param2: string;
begin
    
   ADOQuery1.SQL.Clear;
   AdoQuery1.Sql.Text := 'select * from organized where Title like :Param1 and             classroom like :Param2';
   AdoQuery1.Parameters['Param1'].Values := Edit1.Text;
   AdoQuery1.Parameters['Param2'].Values := Edit2.Text;
   AdoQuery1.Open;
end;

что у меня не так? зарание спасибо, и можно ещё вопрос, вчерашний проект не работает, тот код который я вчера выложил не пашет, почему? а вчера хорошо работало, но я ведь код не менял