Создание процедуры OnClick и OnMouseMove

[AlexMe]

Программно создаю image

pic:=TPicture.Create;
pic.LoadFromFile ('image\infM.bmp');
img:=TImage.Create(Form1);
img.Parent:=Form1;
img.Left:=210+leb.Width+2;
img.Top:=15+i*20;
img.Visible:=true;
img.Name:='img'+IntToStr(i);
img.Picture:=pic;

Как создать процедуры OnClick и OnMouseMove?

[volod3000]

img.OnClick := imgClick;

procedure TForm1.imgClick(Sender: TObject);
begin
....................................
end;

и не забудьте поместить

type
  TForm1 = class(TForm)
  procedure imgClick(Sender: TObject);
..............................

OnMouseMove - тоже самое, только процедура выглядит так :

procedure TForm1.ImgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
........................................................
end;

[AlexMe]

Сообщение от volod3000

img.OnClick := imgClick;

procedure TForm1.imgClick(Sender: TObject);
begin
....................................
end;

и не забудьте поместить

type
  TForm1 = class(TForm)
  procedure imgClick(Sender: TObject);
..............................

OnMouseMove - тоже самое, только процедура выглядит так :

procedure TForm1.ImgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
........................................................
end;

Спасибо большое!

Ругается на

img.OnClick := imgClick;

Incompatible types: 'method pointer and regular procedure'
Аналогично и на MouseMove ругается.

[volod3000]

А, Вы все условия выполнели, описанные выше ?
Проверьте.

[AlexMe]

  TForm1 = class(TForm)
              ...
    procedure ImgMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure imgClick(Sender: TObject);
              ...
procedure TForm1.ImgMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor:=crHandPoint;
end;
procedure TForm1.imgClick(Sender: TObject);
begin
ShellExecute(0, 'Open', pChar('http://mylink.ru'), nil, nil, SW_SHOW);
end;
              ...
procedure LabelCreate(i:integer);
begin
              ...
img:=TImage.Create(Form1);
img.Parent:=Form1;
img.Left:=210+leb.Width+2;
img.Top:=15+i*20;
img.Visible:=true;
img.Name:='img'+IntToStr(i);
img.Picture:=pic;
img.Height:=10;
img.OnClick:=imgclick;
img.OnMouseMove:=imgmousemove;
end;

Выдает ошибки:
[Error] Unit1.pas(95): Undeclared identifier: 'imgclick'
[Error] Unit1.pas(96): Undeclared identifier: 'imgmousemove'

[Аватар]

img.OnClick:=Form1.imgclick;
или
procedure TForm1.LabelCreate(i:integer);
и прописать LabelCreate в private формы

[Stilet]

procedure LabelCreate(i:integer);

У-у-у... Дык эта процедура обьекту формы не принадлежит, и попросту его поля не видит.

img.OnClick:=Form1.imgclick;
img.OnMouseMove:=Form1.imgmousemove;

Хотя с другой стороны я сумлеваши что так получится.
Лучше опиши LabelCreate методом этой самой формы.