内联函数   有的时候可以优化汇编代码，如下，应该是把Max 直接优化了，找不到 call max

function Max(a,b:integer): Integer;inline;
begin

if a < b then
Result := b
else
Result := a;
end;

procedure TForm4.btn3Click(Sender: TObject);
var
aa: Integer;
begin

ShowMessage(max(100,300).ToString());
end;

下面的函数 对比 内联 ，未优化的

function Max2(a,b:integer): Integer;
begin

if a < b then
Result := b
else
Result := a;
end;