delphi 2009 string vs opengl shader commands

[noeska]

Ok final working version:

procedure TGLSLProgram.SetF(aname: string; arg: GLFloat);
begin
 glUniform1fARB(glGetUniformLocationARB(FProgramObject, PGLcharARB(ansistring(aname)) ), arg);
end;