технически - сделано грамотно и без ошибок.

только зачем цикл - vari: integer; begin for i:=1 to Length(str) do ...
можно и напрямую мессагу запилить.

ладно, не столь и важно.

а вот:
Sends('bG9naW4='+CRLF);
Sends('cGFzc3dvcmQ='+CRLF);

уже другое.
имхо, это генерируется random и для каждой пост-мессаги должны быть уникальными.