Delphi 2009增强之Exit函数

在Delphi2009（Tiburon）中，以下两个函数做相同的事情：

function DoSomething(aInteger: integer): string;
begin
if aInteger < 0 then  begin
    Exit('Negative');
end;
  Result := 'Positive';
end;
function DoSomething1(aInteger: integer): string;
begin
if aInteger < 0 then  begin
    Result := 'Negative';
    Exit;
end;
  Result := 'Positive';
end;