procedure ShowExtensions(aSceneBuffer: TGLSceneBuffer);var   ExtStr: string;
   stringlist: TStringList;
   i: integer;
begin   StringList := TStringList.create;

   aSceneBuffer.RenderingContext.Activate;
   ExtStr := PChar(glGetString(GL_EXTENSIONS));
   aSceneBuffer.RenderingContext.Deactivate;

   StringList.Clear;
   while Length(ExtStr) > 0 do begin
     I := Pos(' ', ExtStr);
     if I = 0 then I := 255;
     StringList.Add(Copy(ExtStr, 1, I-1));
     Delete(ExtStr, 1, I);
   end;

   ShowMessage(StringList.text);
   StringList.Free;
end;

//then simply call this function with bufferShowExtensions(GLSceneViewer1.Buffer);