如果发现“特殊字符”，则需要停止循环。你可以使用Break来实现。您还需要记住是否找到了这样的字符，然后在循环结束后对结果进行操作。
尝试更像这样的东西。

var
  hasSpecialChar: Boolean;
...
hasSpecialChar := False;
for Number := 1 to Length(s) do
begin
  if Position(s[Number],Array) > 0 then
  begin
    hasSpecialChar := True;
    Break;
  end;
end;
if hasSpecialChar then
  ShowMessage('Success') 
else
  ShowMessage('Password must contain at least one special character');

我建议你使用正则表达式，这将使你的生活更容易，这个例子应该做的伎俩，它返回一个字符串与所有使用的字符，而不是字母或数字

procedure TForm1.Button2Click(Sender: TObject);
    var
    Regex: TPerlRegEx;
    sApp: string;
    begin

      regex:= TPerlRegEX.Create;

      try

        Regex.RegEx := '[^a-zA-Z0-9]';// match every character that isn't in a --> z A --> Z 0 --9

        Regex.State := [preNotEmpty];
        regex.Options := [preNoAutoCapture];

        Regex.Subject := edit1.Text;

        sapp := '';

        if Regex.Match then
        begin

          repeat

            sapp := sapp + regex.MatchedText;

          until not Regex.MatchAgain;

        end;

      finally
        Regex.Free;
      end;

      ShowMessage(sapp);

    end;

我已经使用了 Delphi 11和System.RegularExpressionsCore，但诀窍是由这个正则表达式[^a-zA-Z0-9]，那么你可以使用你喜欢的库来尝试它！