Uses
   dxutil_environment;

function A1():AnsiString;
begin
   A1:='';
end;

procedure procA1(var B:AnsiString);
begin
   B:='';
end;

Var
   Loop:Longint;
   StartTime:Comp;
   S:AnsiString;

Begin
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do A1();
   System.Write('A1: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do procA1(S);
   System.Writeln(' procA1: ',Trunc(Trunc(TimeCounter)-StartTime));

end.