Панель для быстрого запуска

[Gudzik11]

Скажите как удалить динамически созданные компоненты
создаются они так

procedure TForm1.MyPc;
var x: int64;
bit, i: integer;
tp: Uint;
tip: string;
Value, Value1:string;
begin
 // Вызываем функцию WinAPI
// Функция возвращает битовую маску установленных логических дисков.
// Бит 0 определяет наличие диска А:, бит 1 - диска B и т.д.
 x:=GetLogicalDrives();
 if x=0 then
  PCForm.Memo1.Lines.Add('Функция GetLogicalDrives завершилась неудачей...')
 else
  begin
// цикл по полученным битам переменной X
  for i:=1 to 64 do
   begin
    // Накладываем битовую маску для выделения бита с поряковым номером 0
     bit:=x and 1;
     // нашли логический диск...
    if bit=1 then
     begin
      // определяем тип логического диска
      tp:=GetDriveType(PChar(chr(64+i)+':'));
      tip:='';
       if tp=0 then tip:='тип устройства не может быть определена';
       if tp=1 then tip:='Корневой каталог не существует';
       if tp=DRIVE_REMOVABLE then tip:='Съемный диск';
       if tp=DRIVE_FIXED then tip:='Локальный диск';
       if tp=DRIVE_REMOTE then tip:='remote (network)';
       if tp=DRIVE_CDROM then tip:='CDROM';
       if tp=DRIVE_RAMDISK then tip:='RAM disk';

       if (tip = 'Локальный диск') or (tip = 'Съемный диск') then
        begin
         Value:=FormatFloat('#.##',GetDiskFree(chr(64+i))/1024/1024/1024);

         PCForm.memo1.Lines.Add(chr(64+i)+': '+tip) ;
         //' '+ chr(64+i)+': '+tip+ '  [  ' + Value + ' GB ]');
           // Иконки
         inc(number);
         PCImage[number]:=TImage.Create(PCForm.Panel5);
         PCImage[number].Parent:=PCForm.Panel5;
         if number=1 then
         begin
          PCImage[number].Left:=10;
          PCImage[number].Top:=10;
          PCImage[number].Width:=70;
          PCImage[number].Height:=70;
          PCImage[number].Stretch:=True;
          PCImage[number].Name:='PCImage'+inttostr(number);
          PCImage[number].Picture.LoadFromFile('ico\My pc\Hdd.png');

         end
         else
          begin
           PCImage[number].Left:= (number * 80)-80;
           PCImage[number].Top:=10;
           PCImage[number].Width:=70;
           PCImage[number].Height:=70;
           PCImage[number].Stretch:=True;
           //PCImage[number].Name:='PCImage'+inttostr(number);
           PCImage[number].Picture.LoadFromFile('ico\My pc\Hdd.png');

          end;
        end
        else
         begin
          // преобразуем счетчик в букву диска и выводим в Memo1
          PCForm.memo1.Lines.Add(' '+ chr(64+i)+': '+tip);
         end;


      end;
    // побитовый сдвиг вправо
     x:= x shr 1;
   end;
  end;
end;

мне нужно чтоб при закрытии 2 формы все компоненты которые были созданы динамически удалялись

[eval]

они и так удалятся, ничего более не надо. и зачем нужен PCImage?

[Gudzik11]

не удаляются вот глянь проект
http://zalil.ru/34831350

[Gudzik11]

нужно чтоб при следующем открытии формы программа опять сканировала систему на диски и выводила картинку дисков в Image а у меня получается что они остаются на форме и если я начинаю заново открывать 2-ю форму то получаю ошибку

[eval]

тогда надо более подробно объяснять,
что такое "при закрытии 2 формы", что такое "не удаляются" и т.д.

[Gudzik11]

Вот код в котором закрывается 2-я форма

if (p.x > form1.Width) or ( p.y > Form1.Height ) // Прячет форму

 then
   begin
      if (p.x > PCForm.Left + PCForm.Width) or ( p.y > PCForm.Top + PCForm.Height ) then   // Если форма 1 не открыта
      begin
       Animatewindow(PCForm.Handle,500,AW_HOR_NEGATIVE or AW_SLIDE or AW_HIDE);
       PCForm.Close;
       Animatewindow(form1.Handle,500,AW_HOR_NEGATIVE or AW_SLIDE or AW_HIDE);
       Razmer;
       


      end
   end;

вот тут как то нужно убить те компоненты PCImage чтоб в следующий раз их можно было создать заново

[eval]

так и не понятно зачем нужен PCImage, следовательно можно предположить, что он не нужен..
при Close форма не уничтожаеться, и все что на ней сооьвеьственно, вам оно надо?

если вы не уничтожаете значит надо убирать контролы руками

[Gudzik11]

в PCImage выводиться картинка локальных дисков

[eval]

как картинка может выводиться в PCImage ? чет вы загибаете

[Gudzik11]

PCImage это и есть IMAGE