procedure TForm10.FlatButton3Click(Sender: TObject);
begin try
close;
except end;End;