работа с Tcomcombobox

cbb1.Items.Add(cmprt1.Port);

//открытие порта
procedure TForm3.btn1Click(Sender: TObject);
begin
  try
    cmprt1.Open;
    if cmprt1.Connected = True  then
    lbl1.Caption := 'Порт открыт'
    else
    lbl1.Caption := 'Порт закрыт';
  except
    on E : EComPort do
      if (E.Code = 1) and (E.WinCode = 2) then ShowMessage('Порт '+cmprt1.Port+' не найден');
    else raise;
  end;
end;

  // Ищем COM-порты в реестре
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM', False) then
    begin
      SL  := TStringList.Create;
      SL1 := TStringList.Create;
      try
        SL1.Sorted := True;
        Reg.GetValueNames(SL);
 
        for I := 0 to SL.Count - 1 do
          SL1.Add(Reg.ReadString(SL.Strings[I]));
 
        // ComboBox  
        cbPort.Items.AddStrings(SL1);
      finally
        SL.Free;
        SL1.Free;
      end;
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
 
  // не нашли? Ищем попыткой открытия
  if cbPort.Items.Count = 0 then
    for I := 0 to 31 do
    begin
      Handle := CreateFile(PChar('\\.\COM' + IntToStr(succ(I))), GENERIC_READ or GENERIC_WRITE, 0, NIL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
      if Handle <> INVALID_HANDLE_VALUE then
        cbPort.Items.Add('COM' + IntToStr(succ(I)));
      CloseHandle(Handle);
    end;

unit fMain;
implementation {$R *.dfm}
 
uses unit2;
 
procedure TfrmMain.Button1Click(Sender: TObject);
begin
Form3.btn1.Click;
end;