Помогите пожалуйста с формой в Borland Delphi 7

[V1ktor1]

Доброго времени суток. В проекте есть "дочерняя", подчиненная форма (Height=1200 и Width=1600). На этой форме есть три панели Panel, несколько картинок Image и кнопку Button. При нажатии на кнопку Button срабатывает процедура закрытия формы:

...
procedure TForm4.Button1Click(Sender: TObject);
begin
Form4.Close;
end;
...

Картинка Image1 содержит фон для формы - это не так важно.
Панель Panel1 отображает название формы - тоже не так важно.
При нажатии на панель Panel2 написан следующий код:
...

procedure TForm4.Panel2Click(Sender: TObject);
begin
if Image2.Left<800 then
if Image3.Left<800 then
...
if Image23.Left>587 then
begin
Panel3.Visible:=True;
Panel3.Color:=clGreen;
Panel3.Caption:='Да!'
end
else
Panel3.Visible:=True;
Panel3.Color:=clRed;
Panel3.Caption:='Не-а'
end;
...

Панель Panel3 должна менять свои свойства Properties (Visible, Color, Caption) в зависимости от результата процедуры при нажатии панели Panel2.
Картинки Image2, Image3,...,Image23 имеют следующий код (небольшое различие только в прописывании события MouseMove для определенной картинки Image):

...
procedure TForm4.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button<>mbLeft then move:=false //если нажали не левой кнопкой, то перемещать не будем!
else begin
move:=true;
x0:=x;
y0:=y;
end;
end;

procedure TForm4.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if move then begin
image2.Left:=image2.Left+x-x0;
image2.Top:=image2.Top+y-y0;
end;
end;

procedure TForm4.Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
move:=false;
end;

procedure TForm4.Image3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button<>mbLeft then move:=false //если нажали не левой кнопкой, то перемещать не будем!
else begin
move:=true;
x0:=x;
y0:=y;
end;
end;

procedure TForm4.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if move then begin
image3.Left:=image3.Left+x-x0;
image3.Top:=image3.Top+y-y0;
end;
end;

procedure TForm4.Image3MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
move:=false;
end;
...

При запуске проекта из главной формы открывается данная "дочерняя", подчиненная форма. Кнопка Button1 работает правильно, а при нажатии на панель Panel2:
- не переместив ни одной картинки Image, появляется панель Panel1, но неправильно выбран цвет при правильном расположении картинок Image, т.е. красный clRed;
- переместив хотя бы одну картинку Image, панель Panel1 не появляется совсем.
Подскажите пожалуйста, что не так?

[evg_m]

не переместив ни одной картинки Image, появляется панель Panel1, но неправильно выбран цвет при правильном расположении картинок Image, т.е. красный clRed;

стало быть Image23 ИЗНАЧАЛЬНО "убежал" далеко влево.

if Image23.Left>587 then 
begin
........
end
else
.....
Panel3.Color:=clRed;

Если конечно же не было ничего в опущенных if

if Image2.Left<800 then
if Image3.Left<800 then
...

панель Panel1 не появляется совсем.

а где же код по управлению этой панелью.

Panel1.Visible:=true;/False;

да и нужен ли он если

Панель Panel1 отображает название формы - тоже не так важно.

А картинки(Image) размещены(Parent) на панелях или на самой форме.
в случае формы идет перекрытие показа (Z-порядок)
У тебя есть СТОПКА изображений( и Image и Panel одинаково есть изображения c точки зрения формы, сложенных в стопку) и видна ПОЛЬЗОВАТЕЛЮ будет только "верхняя", хотя с точки зрения программы видны (visible=true) могут быть ВСЕ.
для "перевода наверх" BringToFront.