First try at OOP oriented OpenGL

[{MSX}]

[pascal]
function TTextureSystem.FindItem(TexID: string): TTextureItem;
var i: integer;
begin
for i := 0 to count-1 do
if Items[i].TexId = TexID then begin
result := Items[i];
break;
end;
end;
[/pascal]

Doesn't this give you a warning? result may be undefined if you pass a string that you don't have.
Also, i suggest too to pass to TList (or TObjectList), and what about removing that Windows unit uses that it's probably unuseful ?

Bye!