[elxsoon]

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;