Помогите) [Delphi]

Как сделать чтобы при выделении и нажатие баттона, было перед словом и после символ.
Пример вот такое слово: Delphi super. Выделяешь его и нажимаешь на баттон и делает такой случай
[/b]Delphi super.[/b]

 

var
s:string;
begin
Edit1.text:='[/b]'+'Delphi super.'+'[/b]';
end;

Что тут сложного ?

 

Зачем здесь переменная "s"?
Она ведь не используется....
YASNO , PONYATNO!

 

sEdit1.text:='[/b]'+'delphi super.'+'[/b]';
Что тут сложного ?
Тут любой школьник додумается