Помогите новичку Delphi и ASM

[green123]

Прошу помощи и не пинать очень сильно.
Каким образом необходимо преобразовать текст для работы с функцией использующей асм .
Задача такая- взять число из tedit.text преобразовать в бинарный код и в ассембере произвести следующие операции +- логический сдвиг вправо,влево и выдать результат в tedit.text

исходная инфа в виде "0AE" в асм надо передать в виде "000010101110"
приведу то что у меня получилось

function Calc(r1,r2:longword):longword;register;
  var
    r4,r5,r6:integer;
 asm
  mov ebx,09h
  SHR   ebx,6

 end;
procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:integer;
begin
  a:= StrToInt ('$'+ edit1.text) ;
  b:= StrToInt ('$'+ edit2.text) ;
  c:= CalcEsn(a,b);
  Edit3.Text:=IntToHex(c,8)
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','A'..'F','a'..'f'])
  then Key := #0;
end;

[Stilet]

Ну ту ничего сложного нет, вот пример работы с параметрами на ДелфиАсме

procedure TForm1.FormCreate(Sender: TObject);
 function clc(q:DWORD):DWORD;
 begin
  asm
   mov eax,[q];
   shl eax,2;
   mov [result],eax
  end;
 end;
begin
 caption:=inttostr(clc(2));
end;

[Izhic]

+
[Ctrl+Alt+C]
Во время остановки на Breakpoint
---------------
Сможешь просмотреть на Asm, код любого действия написанного на Delphi

[green123]

спасибо всем кто ответил
у меня еще один вопрос:
в моей asm функции необходимо использовать цикл который выполняется 2F раз и четыре константы
при первом выполнении цикла используются константы по : адрес+С и адрес+8,при втором адрес+4 и адрес+0
вопрос в следующем как под Delphi в Asm задать константы и как к ним обращаться для работы (константы в моей задаче - это четыре байта)
В ассемблере команда : LDR R1, [R2, R3] r2 начальный адрес r3 смещение С,8,4,0