procedure TForm1.Properties1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
form6:=TForm6.Create(nil);
form6.Edit1.Text := Label1.Caption;
form6.Edit2.Text := DateTimeToStr(get_prj_info(Label1.Caption).sdate_);
form6.Edit3.Text := get_prj_info(Label1.Caption).owner_;
form6.Edit4.Text := get_prj_info(Label1.Caption).detail_;
form6.Edit5.Text := get_prj_info(Label1.Caption).comment_;
form6.Edit6.Text := get_prj_info(Label1.Caption).path_;
form6.Hint := Label1.Caption;
form6.ShowModal;
if form6.tag=1 then FormCreate(nil);
freeandnil(form6);
except end;End;