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