Как скопировать image?

[pu4koff]

Я бы сделал как-то так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TImage.Create(Self) do
  begin
    Parent := Self;
    Left := Random(200);
    Top := Random(200);
    AutoSize := true;
    Picture.Assign(Image1.Picture); // Копируем в свежесозданный Image картинку из "эталонного"
  end;
end;

[blackstersl]

шорошо, а вот как сделать чтоб КАЖДЫЙ(их может быть 10,20,50,100) последующий image создавался на 10 пикселей дальше чем превыдущий?

[DeKot]

Добавить цикл for i:= 1 to <кол-во Image> do и в цикле изменять координаты, типа - x:= x + i * 10 ;

[soonner]

var
Image: TImage;
begin
Image := TImage.Create(Form1);//Место создание контейнера
Image.Parent := Form1;//Обезательно
Image.Left:=10;//позиция левого края
Image.Top := 30;//позиция высоты
Image.Width := 73;//ширина контейнера
Image.Height:= 73;//высота контейнера
Image.Visible := true;//что бы контейнер и картинку можно было бы увидить

Image.Name := 'New'+inttostr(time);//имя контейнера; +inttostr(time) что бы при создание нескольких не возникало ошибок

//time:=time+1; можно при нажатии на ту же кнопку. 

Image.Picture.LoadFromFile('File_name');//имя загружаймой картинки!
end;

Сообщение от DeKot

Добавить цикл for i:= 1 to <кол-во Image> do и в цикле изменять координаты, типа - x:= x + i * 10 ;

Только не забудь поставить ограничение, а то имаги за экран полезут!

From Stilet: Код оформляем соответствующей кнопкой.