q:=TQuery.Create;
q.DatabaseName:='DBDEMOS';
q.SQL:='SELECT * FROM Biolife';
q.Open;
q.First;
WHILE NOT q.EOF DO
  Show(q.GetValue('Category'));
  q.Next;
END;
q.Free;