easy
please see code below
function UniqueName(const BaseName:string):string;
var
I:Integer;
Fmt:string;
begin
if BaseName[1] in ['t','T'] then
Fmt:=Copy(BaseName,2,255)+'%d'
else Fmt:=BaseName+'%d';
for I:=1 to High(Integer) do begin
Result:=Format(Fmt,);
if Form.FindComponent(Result)=nil then Exit;
end;
end;
basename is classname of the control you added;
