[NumLock]

Код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Clear;
  for i:=1 to Length(Edit1.Text) do
    Memo1.Text:=Memo1.Text+IntToHex(ord(Edit1.Text[i]), 2);
end;