[v1s2222]

Все работает даже с твоими "квадратиками". Только что взял твой файл, мне вывело все, что было не обходимо. Вот весь код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
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);
end;