Записать код символа из Edit в Memo

[rainbow]

Помогите пожалуйста, не могу записать код введенного символа в Мемо. Программа должна по нажатию кнопки добавлять код символа, введенного в Edit в Memo
Пытаюсь сделать так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(IntToStr(ord(Edit1.Text)));
end;

Например ввожу в Edit символ 'a', нажимаю кнопку, программа должна записывать код символа 97 в Memo, а она мне выдает: 30778052

[Volt]

Попробуйте так

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(IntToStr(ord(Edit1.Text[1])));
end;

как у вас вообще это работало

Memo1.Lines.Add(IntToStr(ord(Edit1. Text)));

у меня компилятор на это ругался.

[prod87]

Просто ты пытался в считать код строки(string), а нужно было символа(char)

вот подробно:

procedure TForm1.Button1Click(Sender: TObject);
var a:char; b:integer;
begin
a:=edit1.Text[1];
b:=ord(a);
edit2.Text:=inttostr(b);
end;

[rainbow]

Сообщение от Volt

Попробуйте так

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(IntToStr(ord(Edit1.Text[1])));
end;

как у вас вообще это работало
у меня компилятор на это ругался.

У меня не ругался, я на Delphi 2010 делал.
Все, спасибо за подсказку Edit1.Text[1] сработало.