procedure TForm4.FormShow(Sender: TObject);
begin try
enumNotes;
except end;End;