procedure TForm4.SpeedButton14Click(Sender: TObject);
begin try
if MessageBox(0,PChar('Do you wants to remove selected note "'+trim(ComboBox1.Text)+'" from your notes collection ?'),PChar(Application.Title),MB_YESNO+MB_ICONQUESTION)=6 then begin
   deletefile(IncludeTrailingBackslash(form1.get_prj_info(form1.Label1.Caption).path_)+'My Notes\'+trim(ComboBox1.Text)+'.wrn');
   ComboBox1.Items.Clear;
   ComboBox1.Text := '';
   enumNotes;
end;
except end;End;