Не могу скопировать компонент

[hon]

   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?

[hon]

Сообщение от Аватар

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

Нет. В конце кода есть

frmMain.Tag:=frmMain.Tag+1;

На форме при запуске приложения Tag=1.

[Аватар]

Name не нужно менять. Сработает

[hon]

Сообщение от Аватар

Name не нужно менять. Сработает

+1, спасибо, сработало.
Но программа работает нестабильно.
Исходник прикреплен.