[jlcorona]

Hola, tengo el siguiente codigo para detectar los puertos serie (codigo que encontre en este foro)

Código SQL [-]
 
var
  H: THandle;
  Numero: Char;
begin
  for Numero:= '1' to '9' do
  begin
    H:= CreateFile(PChar('\\.\COM' + Numero),GENERIC_READ or GENERIC_WRITE,0,
      nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
    if GetLastError <> ERROR_FILE_NOT_FOUND  then
      ShowMessage('Existe el puerto COM' + Numero);
    if H <> INVALID_HANDLE_VALUE then
      CloseHandle(H);
  end;
end;

Cómo le hago para que en lugar de que me los muestre con el ShowMessage me los "almacene" en un ComboBox?