[lmikle]

А что ты хочешь сделать-то?

Код:

var
  Idx : Integer;
  p : Integer;
begin
  Idx := 1;
  p := pos('|',S);
  While p > 0 Do
    Begin
       QuestArray[i]:= Copy(S,1,p-1);
       S := Copy(S,p+1,Length(S));
       Inc(Idx);
    End;
  If Length(S) > 0 then QuestArray[i]:= S;
end;