uses Clipbrd;

type
    procedure Button1Click(Sender: TObject);
    function HoleKlammer(s1:string):string;
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);

//Der Button kopiert den ausgewählten Beitrag:
procedure TForm1.Button1Click(Sender: TObject);
var copytext : string;
begin
  copytext:='[IMG]'+holeklammer(treeview1.Selected.Text)+'[/IMG]';
  Clipboard.AsText:=copytext;
end;

//Wenn ich was aus dem TreeView anklicke:
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  webbrowser1.Navigate(holeklammer(treeview1.Selected.Text)); //Für die Vorschau!
end;

//Diese Funktion ist zum auslesen der '(' & ')' da!
function Tform1.HoleKlammer(s1:string):string;
var i,Lesen:integer;
    s2:String;
begin
    Lesen:=0;
    for i:=1 to length(s1) do
    begin
      if s1[i]=')' then Lesen:=0;
      if Lesen=1 then s2:=s2+s1[i];
      if s1[i]='(' then Lesen:=1;
    end;
    result:=s2;
end;