Делфи БД Запрос Ошибка

Сам проект:

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1}, //Основная форма
LoadSCR in 'LoadSCR.pas' {Form2},
Select in 'Select.pas' {Form4},
ImageView in 'ImageView.pas' {Form3};

{$R *.res}

begin
Application.Initialize;
Form2:=TForm2.Create(Application);
Form2.Show;
while Form2.Timer1.Enabled do
Application.ProcessMessages;
Application.CreateForm(TForm1, Form1);
Form4:=TForm4.Create(Application);
Form3:=TForm3.Create(Application);
Form2.Hide;
Form2.Free;
Application.Run;
end.

Форма

unit ImageView;

interface

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

type
TForm3 = class(TForm)
Image2: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;
i:Integer;

implementation

uses Unit1;
{$R *.dfm}

procedure ShowImage(i:Integer);
begin
//Строка, где указывается ошибка.
Form3.Image2.Picture.Bitmap.LoadFromFile(GetCurrentDir+'\pic\1\p_F.bmp');
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
i:=1;
ShowImage(i);
end;

end.

При компиляции программы выдает ошибку, связанную с адресацией и указывает на строку (см выше) . При создании формы Select такой проблемы не было. Идентификация Image3 без указания формы не проходит - не компилирует вообще.

Проект