[AND_REY]

Вам повезло что на работе нечего делать
Контроль ввода:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Const
 Dmin = 0;
 Dmax = 50;
Var
 X: Integer;
begin
 Label1.Caption:= '';
 X:= StrToInt(Edit1.Text);
 if (X >= Dmin) And (X <= Dmax) Then Label1.Caption:= IntToStr(X)
                                Else ShowMessage('Вылезли за диапазон.');
end;

Цикл на Асм:

Код:

Function For_ASM: Integer;
Asm
 xor eax, eax
 mov ecx, 1000
@M:
 add eax, 1
 loop @M
end;

Найти первы 2-е цифры:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 N: Integer;
 S: String;
begin
 N:= 7468965;
 S:= IntToStr(N);
 Label1.Caption:= Copy(S, 0, 2);
end;