var
i:integer;
s:string;
begin
s:='<ID>10001</ID><USER>CSSA</USER><PASS>123456</PASS>';
memo1.Text:=stringreplace(s,'>',#13#10,[rfReplaceAll]);
memo1.Text:=stringreplace(memo1.Text,'<',#13#10,[rfReplaceAll]);
for i:=0 to memo1.Lines.Count-1 do
if not odd(i) and (memo1.Lines[i]<>'')then
showmessage(memo1.Lines[i]);