Checks if a specified character exists in a given string in Delphi

This function takes two parameters: AString, which is the string to search within, and AChar, which is the character to search for. It iterates over each character in the string using a loop, comparing each character with the specified character. If a match is found, it returns True; otherwise, it returns False.