1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if Edit1.Text = '' then
 begin
  if not (Key in ['1'..'9', Char(VK_BACK)]) then
  Key := #0;
 end;
if Edit1.Text >= '1' then
  begin
  if not (Key in ['0'..'9', Char(VK_BACK)]) then
  Key := #0;
  end;					

1:
2:
3:
4:
5:

 if Edit.Text<>'' then
  begin
    if Edit.Text[1]='0' then
      Edit.Text:=Copy(Edit.Text,2,Length(Edit.Text));
  end;					

1:

 if Edit1.Text >= '1' then					

1:

 if Length(Edit1.Text) >= 1 then