1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

procedure TTrainingRennen.ComPort1RxChar(Sender: TObject; Count: Integer);

var Daten, Spur, Runde, Zeit : String;
    Z : single;

begin
  sleep(50);
  ComPort1.ReadStr(Daten, Count);
  Daten := TrimRight(Daten);
  //if length(Daten) < 5
    //then Showmessage('Fehler: Zeitanzeige ist im *popo*!')
      //else
        //begin
          Spur := leftstr(daten,1);
          runde := midstr(Daten,2,3);
          rundeO := strtoint(runde);
          zeit := midstr(daten,5,9);
          z := StrTofloat(zeit);

          if spur = inttostr(1)
            then
              begin
                runde1.caption := inttostr(rundeO);
                zeit1.caption := floattostr(Z/1000)+ ' s';
                if rundeO+1 >= stringgrid1.RowCount then stringgrid1.RowCount := rundeO+2;
                Stringgrid1.Cells[0,rundeO] := inttostr(rundeO);
                Stringgrid1.Cells[1,rundeO] := floattostr(z/1000)+' s';
                if z <= beste1z
                  then
                    begin
                      beste1z := z;
                      beste1.caption := floattostr(beste1z/1000)+' s';
                    end;
              end
            else
              begin
                runde2.caption := inttostr(rundeO);
                zeit2.caption := floattostr(Z/1000)+ ' s';
                if rundeO+1 >= stringgrid2.RowCount then stringgrid2.RowCount := rundeO+2;
                Stringgrid2.Cells[0,rundeO] := inttostr(rundeO);
                Stringgrid2.Cells[1,rundeO] := floattostr(z/1000)+' s';
                if z <= beste2z
                  then
                    begin
                      beste2z := z;
                      beste2.caption := floattostr(beste2z/1000)+ ' s';
                    end;
              end;
        //end;
end;