Как создавать эдиты и шейпы по нажатию кнопки

[Donim]

Уже с месяц пытаюсь написать программу, но ни как не могу понять как заставить мою программу создавать эдиты и шейпы по нажатию кнопок, если заранее не известно сколько будет таких элементов.

[_-Re@l-_]

Ну так динамически создавайте.
во, в поиске нашёл:

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;   edites:tedit;
begin
n:=4;

for i:=1 to n do
begin
edites:=tedit.Create(owner);
  edites.Top:=100;
  edites.Left:=i*150;
  edites.Height:= 50;
  edites.Width:=100;
  form1.InsertControl(edites);
end;

end;

[Donim]

Эдит наследуется от onwer а от чего наследовать Shape?

[_-Re@l-_]

Ну, делайте точно так же.

[Donim]

а так что бы у каждого были свои события(допустим каждый бы по разному на ПКМ реагировал)?

[Пепел Феникса]

ну тогда сначало опишите эти события, а потом просто назначайте нужный обработчик.
(внутри обработчика Sender это тот кто вызвал событие)