Criando Flooder

Como criar um Flooder com Delphi

Introdução
Bom, eu mecho com delphi a um tempinho já fiz diversos programas, é o
meu passa-tempo acho até legal ficar programando e ver que cada vez que
faço um programa eu melhoro no assunto. Este é um tutorial básico, então
aos que estão no início podem fazer porque será facil. Pretendo fazer
bastantes tutoriais nessa área, mas não pretendo passar sources, porque
sinceramente acho que assim é mais facil aprender.

Requisitos
- Ter o delphi instalado;
- Adicionar a user "Clipbrd"(Sem aspas);
- Saber o básico do básico de delphi.


Tutorial
1º Passo:
Crie os seguintes items:
- 1 Edit(Deixe o Text vazio e o Name deixe Edit1);
- 2 Button(Deixe o Caption do 1º como "Iniciar" e o Caption do 2º como "Parar";
- 1 Timer(Deixe "Enabled: False" e "Interval: 1").

2º Passo:
Clique 2 vezes no Button "Iniciar" e ponha:
Timer1.Enabled := True;

3º Passo:
Clique 2 vezes no Button "Parar" e ponha:
Timer1.Enabled := False;

4º Passo:
Clique 2 vezes no Timer e ponha:
Clipboard.AsText := Edit1.Text;
keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
keybd_event(Ord('V'), 0, 0, 0);
keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
keybd_event(VK_RETURN, 0, 0, 0);

5º Passo:
Organize-o como quiser e aperte F9 para ver como ficou.

Créditos
N3sK

Obs: Eu pesquisei e não achei um tutorial sobre isso,
dependedo dos comentários, farei um outro tutorial ensinando a fazer um
trojan pelo delphi, achou um tutorial parecido com o meu em outro site ?
Eu posso ter aprendido com outro tutorial, mas ensino com minhas
próprias palavras. Se alguém tiver qualquer dúvida relacionada a delphi,
pode me enviar PM se eu souber ajudar, irei ajudar.