+ #13#10 т.е., как я понял memo1.Text:='[ code]'+edit1.Text+'[ /code]'+ #13#10 +'[ color=Red]PR: '+inttostr(pr.Value)+'[ /color]'+'[ color=Magenta]Тиц: '+inttostr(tic.Value)+'[ /color]';