Использование GLUT без его инициализации не
приведёт ни к чему хорошему. Он просто повесит вашу программу.
procedure DrawString(Font : Integer ; Text : String);
var
I : Integer;
begin
For I : = 0 to length(Text) do GlutBitmapCharacter(Font, orb(text[ I ]);
end;
