Llenar un ComboBox

[jlcorona]

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


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?

[Neftali [Germán.Estévez]]

KILL:
ShowMessage('Existe el puerto COM' + Numero);

ADD:

Combobox.Item.Add('Existe el puerto COM' + Numero);