Uses ******, ActiveX;// Нужная нам функция нахожится в ActiveX

****************

function CreateGuid: string;  //Функция для создания и перевода GUID в строку
var
  ID: TGUID;  //Переменная в которую создадим GUID
begin
  Result := ''; // Просто на всякий случай.
  if CoCreateGuid(ID) = S_OK then // Если GUID нормально создался
    Result := GUIDToString(ID); // То результат переводим в string.
end;



*******
s:='Это Спам, спам, спам, умри тупой юзер!!!!'+createguid; //К нашей строке со спамом добавляем GUID
*******