Попробуйте...
procedure TMainForm.UniButton2Click(Sender: TObject);
var
errStr: string;
begin
errStr := 'Dynamic SQL ErrorSQL error code = -104'#13#10+
'Token unknown - line 1, column 13'#13#10+
'GROUP';
errStr := StringReplace(errStr, #13#10, '<br>', [rfReplaceAll]);
UniSession.ErrorMessage(errStr);
end;