[Страдалецъ]

Действительно можно:

Код:

uses
  SysUtils;

Type
 TMyClass = class
  var A: Integer;
  const B: String = 'MyClass';
 end;

Var
  MyClass: TMyClass;
begin
 MyClass := TMyClass.Create;
 MyClass.A := 1;
 WriteLn(MyClass.B);
 ReadLn;
end.