1:
2:
3:
4:
5:
6:
7:

  for iForCBPort := 0 to ComboBoxPort.Items.Count -1 do
  begin
    if not (ComboBoxPort.Items.Strings[iForCBPort] in ('COM1' or 'COM2' or 'COM3')) then
    begin
      ComboBoxPort.Items.Delete(iForCBPort);
    end; //if
  end; //IForCBPort                    

1:

['COM1', 'COM2','COM3']                    

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

function IsStrIn(const Value: string; const Args: array of string): Boolean;
var i: Integer;
begin
  Result := True;
  for i := 0 to High(Args) do
    if Args[i] = Value then Exit;
  Result := False;
end;                    

1:
2:
3:

begin
  if IsStrIn(ComPort, ['COM1', 'COM2', 'COM3']) then ...
end;