var help1, help2:string;
begin

   help1:='%'+Form6.Edit8.Text+'%';  
   help2:=QuotedStr(help1);
   with Form6.ADOQuery1 do  
   begin
   close;     
  
   SQL.Clear;
   SQL.Add('select * from gib as g where g.gn like'+help2+' or g.gf like'+help2+' order by g.gn');
     Open;
   end;
   Edit5.Text := IntToStr(ADOQuery1.RecordCount);

   end;