[v1s2222]

Секунду, вопроса не понял. Сейчас переделаю
Скорее всего ты это хотел:

Код:

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

ShowMessage(s);

А если хотел чтоб "read=0" не выводилось, то:

Код:

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

ShowMessage(s);