Почему не видно изображения?

[NordNomad]

Подскажите, пожалуйста, в чем дело: во время работы приложения создается форма, на которую посредством TImage выводится изображение. Изображения, однако, не видно... Кроме того, не срабатывает " ExitButton.OnClick:= ExitProgram; ". В чем ошибка не знаю, поэтому код привел целиком:


Program Rain;

Uses
ExtCtrls, Forms, Graphics, SysUtils;

Var
RainField: TForm;
ExitButton: TImage;

Const
ExitButtonHeight = 20;
ExitButtonWidth = 20;
ExitButtonHeightIndent = 10;
ExitButtonWidthIndent = 10;

Procedure ExitProgram;
Begin
RainField.Close;
End;

Procedure Initiation;
Begin
RainField.PixelsPerInch:= 96;
RainField.BorderStyle:= BsNone;

RainField.Top:= 0;
RainField.Left:= 0;
RainField.Height:= Screen.Height;
RainField.Width:= Screen.Width;

RainField.Color:= ClWhite;
RainField.TransparentColorValue:= ClWhite;
RainField.TransparentColor:= True;




ExitButton:= TImage.Create(RainField);

ExitButton.Top:= ExitButtonHeightIndent;
ExitButton.Left:= Screen.Width - ExitButtonWidth - ExitButtonWidthIndent;
ExitButton.Height:= ExitButtonHeight;
ExitButton.Width:= ExitButtonWidth;

ExitButton.Picture.LoadFromFile('Re sources\Images\ExitButton.bmp');
ExitButton.Transparent:= True;
ExitButton.BringToFront;
ExitButton.Enabled:= True;
ExitButton.Visible:= True;
{ExitButton.OnClick:= ExitProgram;}
End;

{$R *.res}

Begin
Application.Initialize;
Application.CreateForm(TForm, RainField);

Initiation;

Application.Run;
End.

Заранее благодарен )

[Скандербег]

1. Для отображения визуального объекта его свойству Parent необходимо присвоить ссылку на компонент, который его показывает.
2. Чтобы процедура отрабатывала какое-либо событие она должна быть в составе методов класса и простой процедурой быть не может.

Uses
  ExtCtrls, Forms, Graphics, SysUtils, Classes;

type
  TMyImg = class(TImage)
    procedure ExitProgram(sender : TObject);
  end;

Var
  RainField: TForm;
  ExitButton: TMyImg; //TImage;

Const
  ExitButtonHeight = 30;
  ExitButtonWidth = 30;
  ExitButtonHeightIndent = 20;
  ExitButtonWidthIndent = 20;

Procedure TMyImg.ExitProgram(sender : TObject);
Begin
  RainField.Close;
End;

Procedure Initiation;
Begin
  RainField.PixelsPerInch:= 96;
  RainField.BorderStyle:= BsNone;

  RainField.Top:= 0;
  RainField.Left:= 0;
  RainField.Height:= Screen.Height;
  RainField.Width:= Screen.Width;

  RainField.Color:= ClWhite;
  RainField.TransparentColorValue:= ClWhite;
  RainField.TransparentColor:= True;

  ExitButton:= TMyImg.Create(RainField);
  ExitButton.Parent := RainField;

  ExitButton.Top:= ExitButtonHeightIndent;
  ExitButton.Left:= Screen.Width - ExitButtonWidth - ExitButtonWidthIndent;
  ExitButton.Height:= ExitButtonHeight;
  ExitButton.Width:= ExitButtonWidth;

  ExitButton.Picture.LoadFromFile('find.bmp');
  ExitButton.Transparent:= True;
  ExitButton.BringToFront;
  ExitButton.Enabled:= True;
  ExitButton.Visible:= True;

  ExitButton.OnClick := ExitButton.ExitProgram;
end;
...

[NordNomad]

Скандербег, ОГРОМНОЕ СПАСИБО! Сам разобраться был не в состоянии... хотя все оказалось очень просто )