Hola jeremiselxi, tienes que recorrer tu cadena y verificar cual es numero o letra e ir contando:
Código Delphi
[-]
Valor := Edit1.Text;
for i:=1 to Length(Valor) do
begin
if Valor[i] in ['0'..'9'] then
Inc(CantNum);
if Valor[i] in ['a'..'z','A'..'Z'] then
Inc(CantLetras);
end;
Saluditos