Поиск в БД

[quit]

2 Sweta

procedure TForm1.Edit1Change(Sender: TObject);
var s : AnsiString;
begin
if  CheckBox1.Checked then
  begin
  if Edit1.Text > '' then
  begin
  Query1.Active:=false;
  Query1.Active:=false;
  Query1.SQL.Clear;
  ssql:='SELECT * FROM vuz_bd';
  s := 'WHERE CAST(Sys_kod AS varchar) like ''%' +  Edit1.Text + '''' ;
  Query1.SQL.Add(ssql);
  Query1.SQL.add(s);
  Query1.Open;
  end
  end;
end;

[Sweta]

Большущее Вам спасибо!
Добавить Вам + не получилось.