Delphi 7 калькулятор запрет чисел 02; 03; 07; и т.д

procedure TForm332.Label16Click(Sender: TObject);
var k, y1: integer;
s:string;
formula:OleVariant;
begin
begin
formula :=CreateOleObject('MSScriptControl.ScriptControl');
formula.Language :='VBScript';
  s :=Form332.edit1.Text;
 Form332.Edit3.Text:=(formula.Eval(s));
end;
    end;

procedure TForm1.Edit1Change(Sender: TObject);
var
s:String;
begin
s := Edit1.Text;
if  (Copy(s,1,1) = '0')
and (Length(s) > 1) then Begin
  Delete(s,1,1);
  Edit1.Text := s;
  Edit1.SelStart := Length(s);
  End;
end;

5*0000007=35

procedure TForm1.Edit1Change(Sender: TObject);
const
digits: set of char = ['0'..'9'];         // диапазон символов, включающий только цифры
separators: set of char = ['.' , ','];  // диапазон символов, включающий только разделители
var
S: string;        // строка, которая будет равна Edit1.Text
i: word;          // счетчик символов строки
 
begin
if Edit1.text<>'' then  // Если Edit1 не пустой, то
 begin
 S:=Edit1.Text;                   // присваиваем строке S значение введенного текста
 for i:=1 to Length(S)-1 do   // проверяем каждый символ строки, не является ли он нулем
  begin
  if S[i]='0' then                 // если является, то проверяем пару вещей
  if (S[i+1] in digits) then    // если следующим символом после нуля является цифра, то возможно этот ноль - наш клиент на удаление                 
  if ((i=1) or not ((S[i-1] in digit) or (S[i-1] in separator))) then // если перед этим нулем не цифра и не разделитель, или если этот ноль первый в строке, то это точно наш клиент на удаление         
   begin
   delete (S, i, 1);      // удаляем его нещадно и решительно из строки S
   Edit1.Text:=S;       // теперь еще и из Edit1 удаляем его с глаз долой
   Edit1.SelStart:=i;   // если не написать эту строку, курсор переносится в начало Edit1, что не есть удобно (а так он остается в конце)                                
   end;
  end;
 end;
end;