validar tedit que primer caracter no sea 0

[gonza_619]

hola a todos , bueno tengo un problema con un tedit en el cual ya lo valide para q solo se ingrese numeros, pero necesitaria que el primer caracter no sea 0, que si ingresa 0 no lo permita, solo el primer caracter gracias. probe

Código Delphi [-]
 if not(Key in ['0'..'9',#8]) or (Edit2.SelStart=0)then
  begin
    Key:=#0;
    BEEP;
  end;

pero no me deja ingresar nada como deberia ser gracias de nuevo