[AND_REY]

Код:

Function For_ASM(i, N: Integer): Integer;
Asm
 mov eax, i   // Присвоить регистру eax значение i
 mov ecx, N  // Присвоить регистру ecx значение N
@M:
 add eax, 1  // Прибавить к eax еденицу.
 loop @M    // Перейти на метку уменьшить ecx на 1 пока ecx не будет = 0.
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
 i, N, R: Integer;
begin
 i:= StrToInt(Edit1.Text);   // ввод нач. значения счётчика
 N:= StrToInt(Edit2.Text);  //  до какого числа считать ввод
 R:= For_ASM(i, N);           // сама ф-нц на асм
 Label1.Caption:= IntToStr(R); // вывод значения счётчика.
end;

А вы на программиста учитесь?