procedure TForm2.FlatButton1Click(Sender: TObject);
var i:Integer;
begin try
i:=MessageBox(0,'Are you sure do you wants to save the changes to configuration file ?',PChar(Caption),MB_YESNOCANCEL+MB_ICONQUESTION);
if i=6 then self.SynMemo1.Lines.SaveToFile(Hint);
if i<>2 then Close;
except end;End;