TConsole objekt a procedúrák helyett