[MezKo]

спасибо xchrom. Ещё один вопрос как описать вот эту процедуру

Код:

 begin
  if ItemIndex = -1
   then Exit;
  if not Assigned(Objects[ItemIndex])
   then Objects[ItemIndex] := THuman.Create(Items[ItemIndex]);
  with Objects[ItemIndex] as THuman do