[Dead_Gigabit]

Вылетает на запросе:

Код:

DM.IBQuery1.Close;
DM.IBQuery1.SQL.Clear;
DM.IBQuery1.SQL.Add('SELECT *');
DM.IBQuery1.SQL.Add('FROM "UCH"');
DM.IBQuery1.SQL.Add('WHERE USE like ''' +'%'+n+'%''');
DM.IBQuery1.Open;

Но тут нечего необычного нет

P.S

Забыл сказать PCnav формируется из БД

Код:

var
  S: TUCH;
  K,c,r:integer;
begin
DM.IBQuery1.Active:=false;
  DM.IBQuery1.SQL.Clear;
  DM.IBQuery1.SQL.Add('SELECT *');
  DM.IBQuery1.SQL.Add('FROM "SOTR" order by FIO asc');
DM.IBQuery1.Active:=true;
PCnav.Items.Clear;
c:=0;
k:=1;
dm.IBQuery1.first;
while not (dm.IBQuery1.eof) do
begin
c:=i+1;
K:=k+1;
PCnav.Items.AddObject(nil, dm.IBQuery1.fieldbyname('FIO').asstring,
    Pointer(dm.IBQuery1.fieldbyname('FIO').asstring));
dm.IBQuery1.next;
PCnav.ReadOnly:=true;
  end;
    end;