Bits

Ai galera tenho uma função q Identifica a porta serial e envia para para mim 7 bits então tenho q pegar estes 7 bits converter em normal e armazenar no banco de dados, como fasso essa captura de dados e converção. desde ja agradeço. Ai esta minha função de Identificação de Porta:

procedure TForm1.MostraPorta;
var
Registro : TRegistry;
Lista : TStrings;
indice : Integer;
begin
Registro := TRegistry.Create;

Try
Registro.RootKey := HKEY_LOCAL_MACHINE;
Registro.OpenKey(´hardware\devicemap\serialcomm´, false);
Lista := tStringList.Create;
Try
Registro.GetValueNames(lista);
For indice := 0 to lista.Count - 1 do
label3.Caption := (Registro.ReadString(Lista.Strings[indice]));

// if CbPorta.Items.Count > 0 Then
// CbPorta.ItemIndex := 0;
finally
Lista.Free;
end;
Registro.CloseKey;
finally
Registro.Free;
end;

end;