delphi 2009 string vs opengl shader commands

[JSoftware]

Try
[pascal]
procedure TGLSLProgram.SetF(aname: string; arg: GLFloat);
begin
glUniform1fARB(glGetUniformLocationARB(FProgramObj ect, pchar(aname) ), arg);
end;
[/pascal]