Como Visualizar varios sensores
 

Buenas Noches, mi problema es el siguiente, tengo 5 sensores conectados a una placa arduino, y con delphi quiero hacer una aplicacion que me permita visualizar estos sensores.
los datos se los envio a traves del puerto usb, y puedo leer solo un sensor. si alguien me puede ayudar, se lo agradeceria bastante, ya que he estado todo el dia tratando de hacerlo y no puedo.
aca les dejo la parte del codigo que me esta mostrando un sensor

Ahi esta la parte del codigo que me muestra un sensor

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
buffer: string;

begin
comport1.Readstr(buffer,2);

  if Length(buffer) > 0 then
    begin
    Label1.Caption:=buffer;
    end
end;

La verdad es que con los datos que das es difícil ayudarte; Diría aun más, yo no acabo de comprender ni siquiera cual es el problema. :confused::confused:

Te recomiendo que revises la Guía de estilo e intentes explicar:

El problema con más datos. Explicas que tienes 5 sensores conectados. Les envías datos (USB) y recibes datos (TCOMPORT).
¿Qué es lo que no sabes hacer?
¿Qué quieres hacer?
¿Cual es el problema?
¿El código que adjuntas funciona? ¿Da error?

Si buscas en Google encontrarás páginas con ejemplos, como esta, que incluye uno en Delphi y que usa los componentes Synapse para conectarse.
Revísalo a ver si resuelve tus dudas, sean las que sean...

gracias por responder, en resumidas cuentas, lo unico que quiero es visualizar 5 sensores que estan conectados al arduino.

voy a dividir el programa que tengo en partes, para que se entienda, primero la fase para conectarme al puerto

Código Delphi [-]
procedure TForm1.btn_connectClick(Sender: TObject);

begin
  if ComPort1.Connected then
      begin

      btn_connect.Caption:='Conectar';  
      timer1.Enabled:=True;
      btn_Setup.Enabled:=True;         
      ComPort1.Close;                  
      progressbar1.Position:=0;         
      Label1.Caption:='0';            
     end

    else
      begin
      btn_connect.Caption:='Desconectar';       
      ComPort1.Open;                            
      timer1.Enabled:=true;
      btn_Setup.Enabled:=False;                
      
      end
end;

ahora la parte donde me muestra lo que esta leyendo por el buffer

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
buffer: string;

begin
comport1.Readstr(buffer,2);

  if Length(buffer) > 0 then
    begin
    Label1.Caption:=buffer;
    end
end;

y eso es lo que tengo, me esta funcionando, lo unico que quiero es agregar mas label, pero que cada uno tenga una medida diferente.

gracias