[Elza]

ну вот переделала с pos на ваш RegExp
А толку нету, все равно не могу понять, как после разделителя получить с других и заполнить колонки listview-а

Код:

 var
 RegExp:TRegExpr;
 ItData : TListItem;
 begin
  RegExp:=TRegExpr.Create;
  RegExp.Expression:='"date": "(.*?)"';
  if RegExp.Exec(RichEdit1.text) then begin
    repeat
    ItData := ListView1.Items.Add;
    ItData.Caption := RegExp.Match[1];
    until not RegExp.ExecNext; 
  end;
end;

упс не заметила, что ответ есть, сейчас гляну