Копировать в нужную переменную при отсутсвиии нужной позиции

[Shouldercannon]

При таком раскладе всё нормально

var
  txt, a1, a2, a3: string;
begin
  txt := '/qw/0/er/0/ty/0/ui/0/op/0/as/0/df/0/gh/0/jk/0/lz/0/xc/0/vb/0/nm/0/00/0/22/0/33/0/44/0/55/0/66/0/qwe0/0/rty1/0/uio2/0/pas3/';

  a1 := Copy(txt, Pos('/qw/', txt), Pos('/00/', txt));
  Delete(txt, Pos('/qw/', txt), Pos('/00/', txt) - 1);
  a2 := Copy(txt, Pos('/00/', txt), Pos('/qwe0/', txt));
  Delete(txt, Pos('/00/', txt), Pos('/qwe0/', txt) - 1);
  a3 := Copy(txt, Pos('/qwe0/', txt), Length(txt));

  ShowMessage(a1 + #13#10 + a2 + #13#10 + a3);

Если нет части строки (/qwe0/0/rty1/0/uio2/0/pas3/), то в a3 задаются данные, предназначенные для a2. Как исправить?

[BOBAH13]

Если нет части строки (/qwe0/0/rty1/0/uio2/0/pas3/), то в a3 задаются данные, предназначенные для a2. Как исправить?

Вы разве не видите? Ответ прямо в вашем вопросе заключен.

1. Если нет части строки
2. то в a3 задаются данные
3. редназначенные для a2

если еще не поняли то давайте скажем так

1. Если часть строки не найдена
2. то задать данные в a2

Дополнительно:

Добавить проверку на вхождение части строки, и потом если даст false, сразу задавать данные в a2