[lmikle]

угу. а что мой код дает?

ну и совсем уж тупо:

Код:

var
  l : TStringList;
  i : Integer;
begin
  s := StringReplace(S,'|',#13#10,[rfreplaceAll]);
  l := TStringList.Create;
  l.Text := s;
  For I := 0 To l.count-1 Do
    QuestArray[i+1]:= l[i];
  l.free;
end;