Uses ******, ActiveX;

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

function CreateGuid: string;
var
  ID: TGUID;
begin
  Result := '';
  if CoCreateGuid(ID) = S_OK then
    Result := GUIDToString(ID);
end;



*******
s:='Это Спам, спам, спам, умри тупой юзер!!!!'+createguid;
*******