Jak wizualizować dane z uC po RS232 w Delphi? Temperatury i przyciski

progressbar1.Position:=strtoint(copy(st,7,2));

case strtoint(copy(st,5,1)) of // sprawdzasz ktora temp jest w st i w zaleznosci ustawiasz odpowiedniego progressbara
  1: progressbar1.Position:=strtoint(copy(st,7,2));
  2: progressbar2.Position:=strtoint(copy(st,7,2));
  3: progressbar3.Position:=strtoint(copy(st,7,2));
  4: progressbar4.Position:=strtoint(copy(st,7,2));
 end;

var
st,szm:string;
li,po:byte;
begin
 st:='temp1=5|temp2=20|temp3=2|temp4=15|s1=1|';
 for li:=1 to 4 do begin
  po:=pos('|',st);
  szm:=copy(st,1,po-1);
  delete(st,1,po);
  case strtoint(copy(szm,5,1)) of  // sprawdzasz ktora temp jest w st
   1: progressbar1.Position:=strtoint(copy(szm,7,2));
   2: progressbar2.Position:=strtoint(copy(szm,7,2));
   3: progressbar3.Position:=strtoint(copy(szm,7,2));
   4: progressbar4.Position:=strtoint(copy(szm,7,2));
  end;
 end;
 po:=pos('|',st);
 szm:=copy(st,1,po-1);
 delete(st,1,po);
 if strtoint(copy(szm,4,1))=0 then
  showmessage('Przycisk wylaczony') else
  showmessage('Przycisk wlaczony');
end;

1: progressbar1.Position:=strtoint(copy(szm,7,2));

1: progressbar1.Position:=strtoint(copy(szm,7,3));

var
st,szm:string;
li,po:byte;
begin
 st:='temp1=5|temp2=20|temp3=2|temp4=153|s1=1|s2=1|s3=0|'; //przyjety przeze mnie string;
if length(st)>0 then begin 
for li:=1 to 4 do begin
  po:=pos('|',st); //szukanie "|"
  szm:=copy(st,1,po-1); //skopiowanie do szm znakow od poczatku st do "|"
  delete(st,1,po);  //skasowanie znakow skopiowanych do szm + znak "|"
  case strtoint(copy(szm,5,1)) of  // sprawdzasz ktora temp jest w st
   1: progressbar1.Position:=strtoint(copy(szm,7,3));
   2: progressbar2.Position:=strtoint(copy(szm,7,3));
   3: progressbar3.Position:=strtoint(copy(szm,7,3));
   4: progressbar4.Position:=strtoint(copy(szm,7,3));
  end;
 end;
 for li:=1 to 3 do begin
  po:=pos('|',st);
  szm:=copy(st,1,po-1);
  delete(st,1,po);
  case strtoint(copy(szm,2,1)) of
   1: if strtoint(copy(szm,4,1))=0 then
      checkBox1.Checked:=false else checkBox1.Checked:=true;
   2: if strtoint(copy(szm,4,1))=0 then
      checkBox2.Checked:=false else checkBox2.Checked:=true;
   3: if strtoint(copy(szm,4,1))=0 then
      checkBox3.Checked:=false else checkBox3.Checked:=true;
  end;
 end;
end;
end;