Delphi - Ejemplo de Creacion de Classes en Delphi?

Hola !!!

Alguno de ud. me podra proporcionar un ejemplo de creacion de classes en delphi,

Programo en Delphi 5,7 y 2005

Gracias.
Alberto Fregoso
Sistemas Computacionales y Mas
[email protected]

type
TCliente = class // Tipo de objeto tCliente
private
// declaraciones solo accesibles desde este objeto
Nombre, apellidos: string;
edad:integer;
protected // igual a private, pero las calases herederas

public
// metodos
procedure imprime(alNombre, alApellidos:string;alEdad:integer);
End

// implementacion del metodo imprime
procedure TCliente.imprime;
begin
nombre := alNombre; // pasar los parámetros del metodo de la clase
apellidos := alApellidos;
edad := alEdad;
ShowMessage(alNombre + ' ' +alApellidos + ' ' + 'Edad:'+IntToStr(edad));
end;

// para correr la clase
var
UnPunto: Tcliente;

begin
UnPunto := Tcliente.Create; // nueva instancia del objeto

UnPunto.imprime('Tas', 'Mania', 22); // lanzar el objeto
UnPunto.Free; // Liberamos la memoria asignada
end;

// un ejemplo muy claro es TForm se genera automaticamente