Drastic changes in the translator admire those who travel to Delphi
Or to encourage the transition to Delphi
This policy pursued by Microsoft

procedure TFrmMain.Panel1Click(Sender: TObject);
{

}

Or as

procedure TFrmMain.Panel1Click(Sender: TObject);

end sub

procedure TFrmMain.Panel1Click(Sender: TObject);
{
var i:Integer;

}

procedure TFrmMain.Panel1Click(Sender: TObject);
{

var i:Integer;
for i :=0 to 100
{
// do anything
}

}

procedure TFrmMain.Panel1Click(Sender: TObject);
{

if i=1 then
{

}

}

try

finally

end;

try

end try

finally

end;