1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

type TKirchComboBox = class(TComboBox)
  private
    FHasSelection:Boolean;
            
    function  GetFSQL: String;
    procedure SetSQL(const Value: String);

    function  GetDataBaseName: String;
    procedure SetDataBaseName(const Value: String);

    procedure SetHasAll(const Value: Boolean);

  protected
    procedure Change; override;

  public
    FQuery : TQuery;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    // Keine Auswahl aus den Feldern
    property  _HasSelection: Boolean read FHasSelection;
    procedure RefreshContent;

  published
    // Text, der dann angezeigt werden soll
    property _NoSelectionText: String read GetFNoSelText write SetFNoSelText;
    property _SQLText:String read GetFSQL write SetSQL;
    property _DataBaseName:String read GetDataBaseName write SetDataBaseName;
    property _HasAll:Boolean read FHasAll write SetHasAll;
  end;

implementation

//[...]
procedure TKirchComboBox.SetSQL(const Value: String);
begin
  if FQuery.DatabaseName <> '' then begin
   FQuery.SQL.Text := Value;
   FQuery.Active := true;
   RefreshContent;
  end;
end;					

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

object KCBGem: TKirchComboBox
      [...]
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ItemIndex = 0
      ParentFont = False
      TabOrder = 1
      OnChange = KCBGemChange
      Items.Strings = ( [blabla] )
      _NoSelectionText = 'Alle Gemeinden'
      // HIER DER FEHLER
      _SQLText = 'SELECT name FROM Gemeinden'
      _DataBaseName = 'DBMain'
      ///////////////////////////
      _HasAll = False
    end					

1:

if not (csLoading in ComponentState) then ...