var CB : TCompboBox; begin CB := TComboBox.Create(Self); CB.Parent := Self; CB.Top := ... CB.Left := ... CB.ITems.Add('...'); ... end;