procedure TForm3.FlatButton2Click(Sender: TObject);
begin try mxFlatRichEdit1.Lines.Clear;
Label1.Caption :=FlatButton2.Caption;
mxFlatRichEdit1.Lines.LoadFromFile(form2.root+'Support\vplt0002.vif');
except end;End;