[olbeup]

Y cuando cierras el formulario

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  nI: Integer;
begin
  for nI := 0 to (listaPacientes.Count -1) do
    TPa(ListPacientes.Items.Objects[nI]).Free;
end;