[[escafandra]]

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

Saludos.