I'll go ahead and show you how to do what I was talking about earlier:

...
private
{ Private-Deklarationen }
MyColIndex: integer;
...

procedure TMyForm.IB_QueryAfterPrepare(Sender: TIB_Statement);
begin
MyColIndex := IB_Query.FieldByName( 'FULL_NAME' ).Index;
end;

procedure TMyForm.IB_QueryFilterRecord(ARow: TIB_Row; var Accept: Boolean);
begin
Accept := Pos( MyEdit.Text, ARow.Columns[MyColIndex].AsString ) > 0;
end;

procedure TMyForm.MyEditChange(Sender: TObject);
begin
IB_Query.RefreshFilteredRows;
end;

procedure TMyForm.btSearchClick(Sender: TObject);
begin
if not IB_Query.FindNext then
IB_Query.FindFirst;
end;

Hope this helps.

Jason