procedure TForm4.ComboBox1Change(Sender: TObject);
begin try
SpeedButton13.Enabled :=FileExists(IncludeTrailingBackslash(form1.get_prj_info(form1.Label1.Caption).path_)+'My Notes\'+trim(ComboBox1.Text)+'.wrn');
Button3.Enabled :=((SpeedButton13.Enabled)and(Editor.Lines.Count>0));
SpeedButton14.Enabled :=SpeedButton13.Enabled;
except end;End;