[v1s2222]

Код:

var s: string;
begin
...
s:='';
for i:=0 to memo1.Lines.Count-1 do
  if(pos('read=0', memo1.Lines.Strings[i]) > 0) then
    for k:=i+1 to Memo1.Lines.Count-1 do
      s:=s+Memo1.Lines.Strings[k];

ShowMessage(s);

Как-то так. Наверно можно проще, но что первое в голову пришло.