1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.getValues;
var
  blobField: TBlobField;
  qry: TIBQuery;
begin
  (*
     ...irrelevanter Code ...
  *)
  while not qry.Eof do
  begin
    blobField := qry.FieldByName('FELD1') as TBlobField;
    (*
       ...irrelevanter Code ...
    *)
    qry.Next;
  end;
end;