Criação de Classe

E qual é a dificuldade?

Precisaria de um exmplo, caso você tenha poderia postar aqui, ou enviar para o meu e-mail.

luciano@donato.inf.br

type
TMinhaClasse = class
var1: string;
var2: integer
end;

procedure minhaprocedure;
var
MinhaClasse: TMinhaClasse;
begin
MinhaClasse := TMinhaClasse.Create;
MinhaClasse.Var1 := ´Uma String´;
MinhaClasse.Var2 := 666;
end;