[Demonuka]

Код:

  if PSoed = 'Разъеденено' then
      x := true;
    if PSoed = 'Параметры применены' then
      x := true;
    if PSoed = 'Разъеденено' then
      x := true;
    if PSoed = 'Ошибка имени устройства' then
      x := true;
    if PSoed = 'Ошибка соединения' then
      x := true;
    if PSoed= 'Соединение невозможно' then
      x:=true;
if x = true then Result:=1

Но проверяется этот X только один раз (сразу), а нужно ждать, пока x станет TRUE (PSoed меняется в неконтролируемой мной процедуре).