1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  TextLen: Integer;
begin
  Data := Text;
  DataPointer := 1;
  SetLength(Entries, 0);
  SkipTrash;
  while DataPointer < Length(Data) do
  begin
    SetLength(Entries, Length(Entries) + 1);
    TextLen := GetTextLength(False);
    Entries[High(Entries)] := StrToInt(Copy(Data, DataPointer, TextLen));
    DataPointer := DataPointer + TextLen;
    SkipTrash;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

for n:= 1 to 10 do
   begin
      ComPort1.Readstr(str,8);
      Pos1:= Pos('w1',str);
      Pos2:= PosEx('w2',str,Pos1+1);
      str2:= Copy(str,Pos1+1,Pos2-Pos1 -1);
      ar [n]:=strtoint (str2);
      application.processmessages;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Date : String;
begin
  ComPort1.ReadStr(Date, Count);
  Buffer:=Buffer+Date;
  
  Bufferverarbeitung;           

end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var  Date : String;
begin  
ComPort1.ReadStr(Date, Count);  
Buffer:=Buffer+Date;    
Bufferverarbeitung;     
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

{Daten von COM-Schnittestelle lesen}

procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: string);
begin
  Buffer := Str;
  if Pos(':', Buffer) = 1 then
  begin
  DataMB256plus:=Buffer;
  DatenverarbeitungVSTMB256plus;
  Bufferverarbeitung;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Laenge:=Length(Buffer);
I:=1;
  while I < Laenge+1 do
    begin
      Daten:=Daten+Buffer[I];
        IF Buffer[I] =#13 then
          begin
              z.B. MyArray füllen.
            end;
          end;
      INC(I);
    end;
Buffer:='';
end;