[angvelem]

Ну и что, Вы мне мозги парите? Я ясно сказал: "Событие создать через Object inspector"!!! Какого лешего вы его прописали ручками?
unit1:

Код:

  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

dfm:

Код:

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 202
  ClientWidth = 447
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
end

что после этого разводить флуд?