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