function Foo (BoolParam : B1; IntParam : Integer; AListParam : TObjectList) : S32; procedure DoX(AnotherBoolParam : B1) begin // a lot of code that verifies something (1-2 screens) end; function DoY(Float : Float) : Float procedure // a lot of code that calculates something (1-2 screens) end procedure DoZ() begin // do something important (1-2 screens) end begin // wait, what are the parameters for this function? end;