memo1.Text:='[ code]'+edit1.Text+'[ /code]'+'[ color=Red]PR: '+inttostr(pr.Value)+'[ /color]'+'[ color=Magenta]Тиц: '+inttostr(tic.Value)+'[ /color]';

Поможет кто нить в эту строчку вставить знак интера. Ну чтобы было так. Када выполняешь после '[code ]'+edit1.Text+'[ /code]' был интер, как в сообщении и переводил остальные данные на следующую строчку...