Code:
interface

type
  TForm2 = class(TForm)
    procedure Shaders(var aShaderProgram: glUInt);
...

implementation

procedure TForm2.Shaders;
How come it is possible that I can compile and run this?