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

  CntZeile := RichEdit1.Lines.Count;
  IDXZeile := 0;

  while IDXZeile < CntZeile do
  begin
    Zeile := RichEdit1.Lines[IDXZeile];

    .....    

    if Not bHalten then
    begin
      RichEdit1.Lines.Delete(IDXZeile);
      Dec(CntZeile);
    end
    else
      Inc(IDXZeile);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var
  Liste: TStringlist;
  i: integer;
begin
  RichEdit1.Lines.BeginUpdate;
  try
    Liste := TStringlist.Create;
    try
      Liste.Assign(RichEdit1.Lines);
      for i := Liste.Count - 1 downto 0 do
        if not Bedingung then
          Liste.Delete(i);
      RichEdit1.Lines.Assign(Liste);
    finally
      Liste.Free;
    end;
  finally
    RichEdit1.Lines.EndUpdate;
  end;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  SuchText : string;
  Schleife : integer;
begin
  SuchText := '"DeviceId": "AnimalPort 3"';
  Label1.Caption := IntToStr(RichEdit1.Lines.Count);
  for Schleife := RichEdit1.Lines.Count - 1 downto 0 do
    if (Pos(SuchText, RichEdit1.Lines[Schleife]) = 0) then
      RichEdit1.Lines.Delete(Schleife);
  Label2.Caption := IntToStr(RichEdit1.Lines.Count);
end;					

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

  IDXZeile := RichEdit1.Lines.Count - 1;
  while IDXZeile >= 0 do
  begin
    Zeile := RichEdit1.Lines[IDXZeile]; bHalten := false;
    JSONobject := TlkJSONobject(TlkJSON.ParseText(Zeile));
    if JSONobject <> Nil then
    begin
      stDeviceID  := GetValue('DeviceId');
      FreeAndNil(JSONObject);
      bHalten := stDeviceID = cboFilter.Items[cboFilter.ItemIndex];
    end;
    if Not bHalten then RichEdit1.Lines.Delete(IDXZeile);
    Dec(IDXZeile);
  end;