Использование конструкции Case

[Ericnex]

Использую конструкцию case: одна процедура выполняется, другая нет. В чем может быть проблема.
Ранее переменной присваивал значение.

procedure TForm6.sBitBtn1Click(Sender: TObject);
begin
case a of
1:
begin
if (sEdit1.Text <> '') and (sEdit2.Text <> '') and (sEdit3.Text <> '') and (sEdit4.Text <> '')and (sEdit5.Text <> '')and (sComboBox1.ItemIndex <> -1)and (sComboBox2.ItemIndex <> -1) and (sComboBox3.ItemIndex <> -1)then
begin
DM.ADOStoredProc3.ProcedureName:='INSERT_SVETILNIK3;1';
DM.ADOStoredProc3.Prepared;
DM.ADOStoredProc3.Parameters.ParamByName('@Name_s').Value:=sEdit1.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Moshost').Value:=strtofloat(sEdit2.Text);
DM.ADOStoredProc3.Parameters.ParamByName('@Napriaznenie').Value:=strtoint(sEdit3.Text);
DM.ADOStoredProc3.Parameters.ParamByName('@Kreplenie').Value:=sComboBox1.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Klass_zashiti').Value:=sComboBox2.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Klim_isp').Value:=sComboBox3.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Svetovoy_potok').Value:=sEdit4.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Price').Value:=sEdit5.Text;
DM.ADOStoredProc3.Parameters.ParamByName('@Id_z').Value:=DM.ADOQuery1.FieldByName('Id_z').AsInteger;
DM.ADOStoredProc3.ExecProc;
DM.ADOQuery2.Close;
DM.ADOQuery2.Open;
sStatusBar1.Font.Style:=[fsBold];
sStatusBar1.Font.Size:=12;
sStatusBar1.Font.Name:='Times New Roman';
sStatusBar1.Panels[0].Text:='Äîáàâëåíà íîâàÿ çàïèñü: '+ sEdit1.Text;
end else
Showmessage('Ââåäèòå íå ïóñòîå çíà÷åíèå!');
end;
2:
begin
if (sEdit1.Text <> '') and (sEdit2.Text <> '') and (sEdit3.Text <> '') and (sComboBox1.ItemIndex <> -1)and (sComboBox2.ItemIndex <> -1) and (sComboBox3.ItemIndex <> -1)then
begin
DM.ADOStoredProc11.ProcedureName:='INSERT_Kabel;1';
DM.ADOStoredProc11.Prepared;
DM.ADOStoredProc11.Parameters.ParamByName('@Name_k').Value:=sEdit1.Text;
DM.ADOStoredProc11.Parameters.ParamByName('@Marka').Value:=sEdit2.Text;
DM.ADOStoredProc11.Parameters.ParamByName('@Type_b').Value:=sComboBox1.Text;
DM.ADOStoredProc11.Parameters.ParamByName('@Kolvo_zhil').Value:=sComboBox2.Text;
DM.ADOStoredProc11.Parameters.ParamByName('@Sechenie').Value:=strtofloat(sComboBox3.Text);
DM.ADOStoredProc11.Parameters.ParamByName('@Max_tok').Value:=strtofloat(sEdit4.Text);
DM.ADOStoredProc11.Parameters.ParamByName('@Id_z').Value:=DM.ADOQuery1.FieldByName('Id_z').AsInteger;
DM.ADOStoredProc11.ExecProc;
DM.ADOQuery4.Close;
DM.ADOQuery4.Open;
sStatusBar1.Font.Style:=[fsBold];
sStatusBar1.Font.Size:=12;
sStatusBar1.Font.Name:='Times New Roman';
sStatusBar1.Panels[0].Text:='Äîáàâëåíà íîâàÿ çàïèñü: '+ sEdit1.Text;
end else
Showmessage('Ââåäèòå íå ïóñòîå çíà÷åíèå!');
end;
end;
end;
end.

[Аватар]

Ну видимо в том, что только кажется по поводу присвоения в переменную a