procedure TForm3.FlatButton3Click(Sender: TObject);
begin try mxFlatRichEdit1.Lines.Clear;
Label1.Caption :=FlatButton3.Caption;
mxFlatRichEdit1.Lines.LoadFromFile(form2.root+'Support\vplt0000.vif');
mxFlatRichEdit1.SelStart :=Pos('http://wikiproject.sourceforge.net',mxFlatRichEdit1.Lines.Text)-3;
mxFlatRichEdit1.SelLength := Length('http://wikiproject.sourceforge.net');
mxFlatRichEdit1.SetSelectionHyperlink(True);
mxFlatRichEdit1.SelStart :=0;
except end;End;