Delphi - validar cifra

Hola amigos:
En mi proyecto tengo un edit que solamente tiene que recibir números, eso ya lo hice, pero algo más que tengo que validar es que no se introduzcan ceros por delante, es decir que no aparezca así: 0010, sino que nunca acepte ningún cero por delante, es decir así:10. Intenté con acceder a lo que edit alamacena en una cadena, traté de manipular el primer caracter de la cadena, es decir:
cadena[1], pero al correr el programa aparece un erros, existe alguna forma de hacer lo que quiero que sea diferente?
Muchas gracias por su tiempo y conocimiento.

Puedes probar con esto:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key='0') and (Length(Edit1.Text)=0) then
Key:=#0;
end;

Saludos.