Código delphi verifica se componente já existe

// verifica se um componente já existe

function TForm.TestaComponente(Nome: String): boolean;
var i: integer;
begin result := False;
for i := 0 to (Application.ComponentCount - 1) do
begin
result := (Application.Components[i].Name = Nome);
if result then
break;
end;
end;