Delphi получить scancode символа из строки 2

Губарева не слушай, бредит он.
Найди в инете и качни модуль sndkey32.pas - там есть почти готовый код для тебя.
Или посмотри сам функцию АПИ vkKeyScan

Блин, вот бредят-то кругом! Ну при чем тут скан-код клавиатуры и ASCII коды? Еденицы ставить не хочу, а надо бы.

Получаем номер первого символа строки s в ASCII-таблице символов
var
ch: byte; s: string;
begin

s:= 'Asdfgh';
ch := ord(s[1]);
caption := s[1] + ' = ' + inttostr(ch);
end;

Сами вы бредите дорогой товарисч Jurijus Zaksas. код полностью рабочий

-----------------вот пример с asci кодом символов --------
var
C : Char;
I : Integer;
Buf : String;
begin
Buf := '';
C := 'A';
While C <= 'Z' Do
Begin
Buf := Buf + C + ' = ' + Ord(C) + #13#10;
C := Chr(Ord(C) + 1);
End;
ShowMessage(Buf);
end;
-------------вот еще------------------------------------
var
S: string;
begin
S:= 'x3 имеет порядковый номер '+ IntToStr( Ord( x3 ))+ #13;
S:= S+ 'ASCII код символа "Б" - ' + IntToStr( Ord( 'Б' ))+ #13;
S:= S+ 'ASCII код символа "б" - ' + IntToStr( Ord( 'б' ));
MessageDlg( S, mtInformation, [mbOk], 0);
end;
-----------------------------------------------------------------------
со строками можно так
Str:='text;
Str[1]:='T';
Str[4]:='T'
i:= Length(str)
результат str = TexT, i = 4
Я думаю инфы хватит вот твой алгоритм теперь

Цикл i от нуля до конца длины строки+1
результат: =Ord( 'строка' )
Вот в рельтируещем масиве и будут все аски коды каждого символа из твоей строки.