[v1s2222]

А не заметил, там может быть несколько "read=0". Сейчас исправлю.

Пожалуйста:

Код:

var s: string;
b: boolean;
i, k: Integer;
begin
b:=false;
s:='';
for i:=0 to memo1.Lines.Count-1 do
  if(pos('read=0', memo1.Lines.Strings[i]) > 0) and(not(b)) then begin
    b:=true;
    for k:=i+1 to Memo1.Lines.Count-1 do
      s:=s+Memo1.Lines.Strings[k]+ #13;
  end;
  s:=trim(s);

ShowMessage(s);

Разве что можно убрать "+#13", тогда все что после "read=0" выведется в одну строку...