for i := 0 to ComponentCount - 1 do begin
 if Components[i] is TLabel then
   begin
    LabelControl := TCombobox(Components[i]);
    if (LabelControl.Tag = 1) and (LabelControl.FocusControl is TComboBox) then begin
      FilterList.Add(TPair.Create(TCombobox(LabelControl.FocusControl), LabelControl.Caption));
      LabelControl.Caption := LoadCaption(LabelControl.Caption);
    end;
   end;

const
  Condition = '%s = %d';
begin
 Filter := '';
 for i := 0 to FilterList.Count - 1 do begin
    EditControl := FilterList[i].Key;
    if EditControl.Text = '' then Continue;
    if Filter <> '' then
      Filter := Filter + ' and ';
    Filter := Filter + Format(Condition, [FilterList[i].Value, Integer(EditControl.Items.Objects[EditControl.ItemIndex])]);
   end;
 end;