Variables y Clases

[Silver]

Tengo un problema que me esta afectando mucho, se trata de que necesito hacer una clase que almacene datos y cuando se los pida los devuelva. El problema esta en que quiero hacer las clases en tipo de ejecución y eliminarlas pero para ello quiero utilizar palabras.

type
THombre = class
Edad: Integer;
Peso: String;
end;

var
Juan, Antonio: THombre; //Se añaden más variables en tiempo de ejecución ¿cómo lo hago?

Ejem:

Juan := THombre.Create;
Juan.Edad := 29;
Juan.Peso := '70 kg';
Antonio := THombre.Create;
Antonio.Edad := 30;
Antonio.Peso := '88 kg';

>> En un boton <<
DeQuien := Juan; // DeQuien es equivalente a Juan ¿como hago esto?
Label1.Caption := IntToStr(DeQuien.Edad); //Obtengo la edad de Juan
Label2.Caption := DeQuien.Peso; // Obtengo el peso de Juan
// Para obtener el de Antonio utilizo la variable Antonio (pero resulta que tengo que especificarla y en tiempo de ejecucion aparecen nuevos nombres

Pues bien para esto tengo que utilizar variables y yo quiero que las variables se creen en tiempo de ejecución. ¿Cómo las puedo crear para hacer esto?

Saludos, y gracias.