[Страдалецъ]

Т.е. вам видимо нужно вот такое:

Код:

Var
 a: Array of String;
...
while Pos(#13#10,s) <> 0
do begin
    SetLength(a, Length(a)+1);
    a[High(a)] := Copy(s, 1, Pos(#13#10,s))
    s := Copy(s, Pos(#13#10,s)+2,Length(s));
    end;