"11,02" n'est pas une valeur entiére valide.

procedure TForm1.Edit_TauxExo_TapExit(Sender: TObject);
var
    a:boolean;
    i,b: integer;
begin
if Edit_TauxExo_Tap.Text='' then Edit_TauxExo_Tap.Text:='0';
i:=100;
b:=StrToInt(Edit_TauxExo_Tap.Text);
a:=b>i;
if a then
  begin
    Showmessage('Entre une valeur entre 0 et 100'+#13+#10+'Si le taux d''exonération 66,44 % saisir seulement 66,44');
    Edit_TauxExo_Tap.Text:='0';
  end;

end;