OpenGL 3.x cube problem

[JSoftware]

Try altering the attach function to this:

procedure TGLSLProgram.Attach(ashader: TShader);
begin
 inherited Attach(ashader);
 ashader.Compile();
 writeln(ashader.log);
 glAttachObjectARB(FProgramObject, ashader.FShaderObject);
 glDeleteObjectARB(ashader.FShaderObject);
end;

At least on my computer with a fairly new card I get "error C0201: unsupported version 150"