Скидка не работает так как нужно

proc1:=100;
proc2:=200;
proc3:=300;
proc4:=400;
proc5:=500;
proc6:=600;
proc7:=700;
proc8:=800;
proc9:=900;
proc10:=1000;
suma:=StrTofloat(Edit11.Text);
  begin
  if
  suma <= proc1  then
  begin
  skidka:=1;
  end
  else
 
  if
  suma <= proc2  then
  begin
  skidka:=2;
  end
  else
 
    if
  suma <= proc3  then
  begin
  skidka:=3;
  end
  else
 
    if
  suma <= proc4  then
  begin
  skidka:=4;
  end
  else
 
    if
  suma <= proc5  then
  begin
  skidka:=5;
  end
  else
 
    if
  suma <= proc6  then
  begin
  skidka:=6;
  end
  else
 
    if
  suma <= proc7  then
  begin
  skidka:=7;
  end
  else
 
    if
  suma <= proc8  then
  begin
  skidka:=8;
  end
  else
 
    if
  suma <= proc9  then
  begin
  skidka:=9;
  end
  else
 
    if
  suma < proc10  then
  begin
  skidka:=10;
  end
  else
  end;

var
  kidok:Integer;
begin
  if StrToFloat(Edit1.Text) > 1000 then
  begin
    kidok := 10;
    ShowMessage (IntToStr(kidok));
    exit
  end;
  if StrToFloat(Edit1.Text) < 100 then
  begin
    kidok := 0;
    ShowMessage (IntToStr(kidok));
    exit;
  end;
  kidok:= StrToInt(Edit1.Text) div 100;
  ShowMessage (IntToStr(kidok));
  end;

if summa >= 1000 then
skidka := 10;

if
  suma <= proc9  then
  begin
    skidka:=9;
  end
  else
    skidka:=10;
  end;