Перевести код в Assembler

[qpuTuJlb]

Дан код в Delphi, нужно перевести в Assembler

procedure TForm1.Button1Click(Sender: TObject);
Var
mas:array[0..2000] of integer;
i:integer;
begin
For i:= 0 to 2000 Do
mas[i]:=i;
StringGrid1.ColCount:=2000;
StringGrid1.RowCount:=1;
For i:= 0 to 1999 Do
Stringgrid1.Cells[i,0]:=inttostr(Random(1999));
end;
 
 
procedure TForm1.Button4Click(Sender: TObject);
var
mas:array of integer;
i,j,nm,t:integer;
begin
nm:=StringGrid1.ColCount;
setlength(mas,nm);
for i:=0 to nm-1 do
mas[i]:=strtoint(StringGrid1.Cells[i,0]);
for i:=1 to length(mas) do
for j:=1 to length(mas) do
if(mas[i-1]<mas[j-1]) then begin
t:=mas[i-1];
mas[i-1]:=mas[j-1];
mas[j-1]:=t;
end;
for i:=0 to nm-1 do
StringGrid1.cells[i,0]:=inttostr(mas[i]);
end;

При нажатии на кнопку заполняются случайные числа, при нажатии на вторую кнопку - числа становятся с порядке возростания

[Serge_Bliznykov]

qpuTuJlb, Вы серьёзно?!
У Вас программа с формой и визуальными контролами.
Вы серьёзно думаете, что кто-то будет писать кучу кода на ассемблере win32 просто так, от нечего делать?!!

[_PROGRAMM_]

Может быть ASM вставки требуются?

[rlib]

Какова цена вопроса?