[BoRoV]

Код:

  len := Pos('Вопрос', Msg);
  if len > 0 then
  begin
    start := PosEx('-(', Msg, len) + 2;
    len := PosEx('):', Msg, len) - start;
    a := copy(Msg, start, len);
  end;