Чтобы преобразовать строку в значения ASCII в Delphi, вы можете использовать несколько методов. Вот несколько примеров:

Метод 1: использование функции Ord

var
  str: string;
  i: integer;
begin
  str := 'Hello, World!';
  for i := 1 to Length(str) do
    ShowMessage(IntToStr(Ord(str[i])));
end;

Метод 2: преобразование в массив байтов

var
  str: string;
  bytes: TBytes;
  i: integer;
begin
  str := 'Hello, World!';
  bytes := TEncoding.UTF8.GetBytes(str);
  for i := 0 to Length(bytes) - 1 do
    ShowMessage(IntToStr(bytes[i]));
end;

Метод 3. Использование функции StrToInt

var
  str: string;
  i: integer;
begin
  str := 'Hello, World!';
  for i := 1 to Length(str) do
    ShowMessage(IntToStr(StrToInt(str[i])));
end;

Метод 4. Использование приведения типа Byte

var
  str: string;
  i: integer;
begin
  str := 'Hello, World!';
  for i := 1 to Length(str) do
    ShowMessage(IntToStr(Byte(str[i])));
end;

Метод 5: использование функции GetOrdProp из модуля TypInfo

uses
  TypInfo;
var
  str: string;
  i: integer;
begin
  str := 'Hello, World!';
  for i := 1 to Length(str) do
    ShowMessage(IntToStr(GetOrdProp(Pointer(str), i - 1)));
end;

Это всего лишь несколько примеров того, как можно преобразовать строку в значения ASCII в Delphi. Не забудьте заменить «ShowMessage» соответствующим кодом в соответствии с вашими потребностями, поскольку он используется здесь в демонстрационных целях.