Komponeten zerstören

[Chewie]

Ersetz mal

Delphi-Quellcode:

procedure Destroy_Component(Compo : TComponent); 
begin 
  if Compo <> nil then 
    begin 
      Compo.Destroy; 
      Compo := nil; 
      Compo.Free; 
    end; 
end;

durch

Delphi-Quellcode:

procedure DestroyComponent(Compo: TComponent);
begin
  if Compo <> nil then
  begin
    Compo.Free;
    Compo := nil;
  end;
end;