{$codepage utf8} {$mode objfpc} Type TCualquierClase=class class var j:integer; //variable de control var Procedure Prueba; End; Procedure TCualquierClase.Prueba; Begin for j:=1 to 10 do Writeln(j); End; Var MiClase:TCualquierClase; Begin MiClase:=TCualquierClase.Create; MiClase.Prueba End.