asm код процедуры D2009

[Kolik317]

Здравстуйте,
прочитал статью, решил повторить 1 в 1, и не получается=) на Delphi 2009.

вот на этой строке

 ptrAddr := @CheckTrial;

после @CheckTrial
ругается Variable required. Что делать?

[GunSmoker]

Ну, а CheckTrial-то у вас объявлена? Где?

[Kolik317]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure CheckTrial();
    procedure EndCheckTrial;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 ptrAddr: Pointer; {Адрес процедуры CheckTrial}
 aByte: Byte; {Байт процедуры}
 dwOldProtect: DWORD;
begin
 ptrAddr := @CheckTrial;
 VirtualProtect(@CheckTrial, 4096, PAGE_READWRITE, @dwOldProtect);
 while ptrAddr <> @EndCheckTrial do
 begin
  Byte(ptrAddr^) := Byte(ptrAddr^) xor $25;
  aByte := Byte(ptrAddr^);
  Memo1.Lines.Add('0' + IntToHex(aByte, 2) + 'h');
  inc(Integer(ptrAddr));
 end;

end;

procedure TForm1.CheckTrial;
begin
 ShowMessage('Trial period has expired.');
end;

procedure TForm1.EndCheckTrial;
begin
caption:='';
end;

end.

Чет с синтаксисом не так? или объявил не там?

[GunSmoker]

Процедура <> метод.

[Kolik317]

тоесть мне надо сделать из процедуры метод? тоесть добавть объект? или класс? сори если я дико нублю)

[BOBAH13]

 TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure CheckTrial();
    procedure EndCheckTrial;

Из этого видно, что EdnCheckTrial, CheckTrial сейчас методы класса TForm1. Вам надо сделать типа

procedure CheckTrial....

т.е. не объявлять в TForm1 = class..

[Kolik317]

аааа спасибо, всё теперь тотально допёр)))
вощем так надо

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    procedure CheckTrial();
    procedure EndCheckTrial;