procedure TForm4.Button3Click(Sender: TObject);
begin try
if Button3.Enabled then
   Editor.Lines.SaveToFile(IncludeTrailingBackslash(form1.get_prj_info(form1.Label1.Caption).path_)+'My Notes\'+trim(ComboBox1.Text)+'.wrn');
Close;
except end;End;