Конструктор пластиковых окон

[Utkin]

Возможно:
а) При инициализации неплохо бы указать координаты где рисоваться фигуре - возможно она рисуется, но ее координаты указаны за пределами формы (либо фигура не помещается целиком на форме).
б) Возможно у фигуры не выставлена "видимость", то есть она есть, но не отображается .
В общем изучайте TShape.
И вообще код по идее работать не должен, Count изначально должен указывать на нуль - это общее число фигур, а не указатель на последнюю фигуру. Поэтому при доступе к последней фигуре должно быть Count-1 (поскольку нумерация в динамических массивах начинается от нуля).

Что касается первого примера - навешивайте реакцию на нажатие мыши программно, ну что-то вроде:

Okno.Elem[Okno.Count-1].MouseDown:=Shape1MouseDown;

на надо уточнить, сейчас нет под рукой дельфи. Поищи правильный синтаксис в гугле.

[Stilet]

почему на Shape2, чтобы он окрасился в красный цвет, нужно нажимать два раза, а не один раз и как это исправить?

Ты что наделал то?
Ты должен был каждой фигуре один обработчик присвоить, а это:

procedure TForm1.Shape2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Shape2.OnMouseDown:=Shape1MouseDown ;
end;

Говорит о том что первый клик - присвоение обработчика, второй его выполнение.
Вообще убери эту чушь. И кажой фигуре присвой Shape1MouseDown