[MezKo]

Конечно можно

Код:

procedure TMainForm.ToolButton2Click(Sender: TObject);
begin
 with PersonsList, PersonsList.Items do  //использовать список и элементы списка
 begin
  if ItemIndex = -1
   then Exit;
  if not Assigned(Objects[ItemIndex])
   then Objects[ItemIndex] := THuman.Create(Items[ItemIndex]);
  with Objects[ItemIndex] as THuman do
  begin
   FNameEdit.Text := FirstName;
   LNameEdit.Text := LastName;
   AgeEdit.Value := Age;
   DocEdit.Text := Document;
   AddrEdit.Text := Address;
   PhoneEdit.Text := Phone;
//делаем все Edit активными для редактирования
   FNameEdit.Enabled := true;
   LNameEdit.Enabled := true;
   AgeEdit.Enabled := true;
   DocEdit.Enabled := true;
   AddrEdit.Enabled := true;
   PhoneEdit.Enabled := true;
  end;
 end;
end;

и сразу возникает другой вопрос что значит вот это, что за constructor

Код:

constructor THuman.Create(AName: String);
begin
 inherited Create;
 FirstName := AName;
end;

и кстати name формы не THuman как я сначала подумал. name формы MainForm1.Может THuman это какая-то переменная ?