componentes do DBEdit e Edit

alguem sabe porque apenas o segundo código funciona? o que ha de errado com o 1º? alguem poderia me ajudar?

obrigada

1)

if Assigned(FindComponent('DBEdit1' +IntToStr(i))) then

 DBEdit1(FindComponent('DBEdit1'+IntToStr(i))).Free;
 with DBEdit1.Create(Self) do
 begin
 Parent := Self;
 SetBounds(8, 17, 377, 21);
 Text := ' ';
 Name := 'Edit1';
 end;

2)

if Assigned(FindComponent('Edit2')) then

 TEdit(FindComponent('Edit2')).Free;
 with TEdit.Create(Self) do
 begin
 Parent := Self;
 SetBounds(8, 48, 377, 21);
 Text := ' ';
 Name := 'Edit2';
 end;