Код:
   Clipboard.Open;
      Clipboard.SetComponent(frmMain.Tarakan0);
      NewTarakan:=Clipboard.GetComponent(frmMain, frmMain) as TImage;
      Clipboard.Clear;
   Clipboard.Close;

   with NewTarakan do
   begin
      Name:='Tarakan'+IntToStr(frmMain.Tag);
      Left:=0; Top:=Random(407);
      Show;
   end;
   frmMain.Tag:=frmMain.Tag+1;

Этот код должен копировать изображение Tarakan0 в Tarakan<frmMain.Tag>. Код работает, но только первый раз, на второй раз ошибка. Как ее устранить?

Решение:
Ошибка не связана случаем с попыткой присвоения существующего имени в Name?)