условия в ComboBox

[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 нечего не выбранно.
Заранее спасибо!

[Пепел Феникса]

if ComboBox1.Text='' then //ничего не выбрано

[Dotha]

Сообщение от Пепел Феникса

if ComboBox1.Text='' then //ничего не выбрано

Большое спасибо

[mihali4]

А вы не хотели бы подсократить свой код?
Например, так:

procedure TForm2.sButton1Click(Sender: TObject);
var
s1,s2,s3,s4:string;
td: TDataSet;
begin
case ComboBox1.ItemIndex of
0: td:=Form1.ADOTable1;
1: td:=Form1.ADOTable2;
2: td:=Form1.ADOTable3;
end;
    s1 := sEdit1.Text;
    s2 := sEdit2.Text;
    s3 := sEdit3.Text;
    s4 := sDateEdit1.Text;
    td.Insert;
    td.FieldByName('Имя').AsString := s1;
    td.FieldByName('Фамилия').AsString := s2;
    td.FieldByName('Отчество').AsString := s3;
    td.FieldByName('Дата рождения').AsString := s4;
    td.Post;//это просто забыли?
end;

А то больно уж много повторов.

[Ferz-2009]

Можно и так

if combobox1.ItemIndex = -1
then begin
showmessage('Вы не выбрали регион');