[Dotha]

Здравствуйте господа программисты !
Подскажите пожалуйста

Код:

procedure TForm2.sButton1Click(Sender: TObject);
var
s1,s2,s3,s4:string;
begin

  if ComboBox1.ItemIndex = 0 then
   begin
    s1 := sEdit1.Text;
    s2 := sEdit2.Text;
    s3 := sEdit3.Text;
    s4 := sDateEdit1.Text;

    Form1.ADOTable1.Insert;
    Form1.ADOTable1.FieldByName('Имя').AsString := s1;
    Form1.ADOTable1.FieldByName('Фамилия').AsString := s2;
    Form1.ADOTable1.FieldByName('Отчество').AsString := s3;
    Form1.ADOTable1.FieldByName('Дата рождения').AsString := s4;

   end
  else

  if ComboBox1.ItemIndex = 1 then
  begin
    s1 := sEdit1.Text;
    s2 := sEdit2.Text;
    s3 := sEdit3.Text;
    s4 := sDateEdit1.Text;

    Form1.ADOTable2.Insert;
    Form1.ADOTable2.FieldByName('Имя').AsString := s1;
    Form1.ADOTable2.FieldByName('Фамилия').AsString := s2;
    Form1.ADOTable2.FieldByName('Отчество').AsString := s3;
    Form1.ADOTable2.FieldByName('Дата рождения').AsString := s4;


  end
  else

  if ComboBox1.ItemIndex = 2 then
  begin
    s1 := sEdit1.Text;
    s2 := sEdit2.Text;
    s3 := sEdit3.Text;
    s4 := sDateEdit1.Text;

    Form1.ADOTable3.Insert;
    Form1.ADOTable3.FieldByName('Имя').AsString := s1;
    Form1.ADOTable3.FieldByName('Фамилия').AsString := s2;
    Form1.ADOTable3.FieldByName('Отчество').AsString := s3;
    Form1.ADOTable3.FieldByName('Дата рождения').AsString := s4;


  end;


end;

Вопрос
Как можно сделать что бы выходило сообщение

Код:

ShowMessage('Вы не выбрали регион');

Если в ComboBox1 нечего не выбранно.
Заранее спасибо!