Code:

uses Math;

procedure TForm1.Button1Click(Sender: TObject);

var

Res, Exponent: integer;

Res1: real;

t, i: integer;

begin

Exponent := 30;

Application.ProcessMessages;

t := GetTickCount;

for i := 1to1000000do

Res := 1shl Exponent;

Form1.Caption := Form1.Caption + ' ' +

IntToStr(GetTickCount - t);

Application.ProcessMessages;

t := GetTickCount;

for i := 1to1000000do

Res1 := LdExp(1, Exponent);

Form1.Caption := Form1.Caption + ' ' +

IntToStr(GetTickCount - t);

Application.ProcessMessages;

t := GetTickCount;

for i := 1to1000000do

Res1 := IntPower(2, Exponent);

Form1.Caption := Form1.Caption + ' ' +

IntToStr(GetTickCount - t);

Application.ProcessMessages;

t := GetTickCount;

for i := 1to1000000do

Res1 := Power(2, Exponent);

Form1.Caption := Form1.Caption + ' ' +

IntToStr(GetTickCount - t);

end;