1:

function TfrmSave.fillCombo(sTable, sField, sCombo: string): boolean;					

1:
2:
3:
4:
5:

while not SqlQuery.eof do
begin
  XXXXXX.items.add(SqlQuery.fieldbyname(sField).asString);
  SqlQuery.Next;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

      BasketButton := TSpeedButton.Create(self);     
      BasketButton.Parent := basketstrip;       // Name einer GroupBox          
      BasketButton.left := firstbutton_left;       // Variable mit einem Wert           
      BasketButton.Top := button_top;           // Variable mit einem Wert           
      BasketButton.Height := button_height;      // Variable mit einem Wert 
      BasketButton.Width := button_width;        // Variable mit einem Wert         
      BasketButton.Caption := Fields[0].AsString;   
      BasketButton.Name := Fields[0].AsString;      
      BasketButton.OnClick := BasketBtnClick;       
      button_top := button_top + 96;					

1:

(Findcomponent('TolleComboBox') as TComboBox).Items.Add('Wow');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

// deine Beispiel Funktion:

function TfrmSave.fillCombo(sTable, sField, sCombo: TComboBox): boolean;  // "String" zu "TComboBox"
// sCombo ist der name der jeweiligen combobox 

while not SqlQuery.eof do 
begin 
sCombo.items.add(SqlQuery.fieldbyname(sField).asString); // sCombo.items.add
SqlQuery.Next; 
end;


// So und wennde die Funktion aufrufst gibst du als sCombo z.B. "Form1.ComboBox1" als Parameter mit					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TestComponent(AComponent : TObject);
const
  BComponent = String : 'Test';
begin
  if (AComponent.ClassType = TComboBox) then
  begin
    if (TComboBox(AComponent).Name = BComponent) then
    begin
      ...;
      ...;
    end;
end;