procedure TForm6.FlatButton4Click(Sender: TObject);
begin try
form2.SaveAllPictures1Click(nil);
except end;End;