[supernewbie]

program Project25;

uses
  SysUtils,
  Windows;

type
   test=class
   public
    a,b,c:integer;
    procedure printclass;
end;

procedure test.printclass;
  begin
     messagebox(0,PChar(Format('%d %d %d', [a, b, c])),'Без примочек',0);
  end;

var
   x:test;

begin
  x:=test.create;
  x.a:=1;
  x.b:=2;
  x.c:=3;
  x.printclass;
end.