При выборе значения одного из трёх ComboBox выводить значение в Label

[TeliS]

На форме стоит 3 combobox'a в каждой из них несколько строк с разными значениями.
Мне нужно чтобы при выборе какого нибудь значения в этих 3 Combobox'a
выводился ответ в label. Как это все сделать???
Вот что получилось у меня
p.s В delphi совсем недавно, думаю что ошибок много хотелось бы что бы вы указали эти ошибки ну и объяснили как их решить! спасибо

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Button1: TButton;
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var q,w,e:Integer;
begin
if ComboBox1='ponedelnik' then
if ComboBox2='1' then
 ComboBox3.Items1:=1;
 e:=combobox3;
 case e of
1:label1.caption:=('1');
2:label1.caption:=('2');
3:label1.caption:=('3');
end;

 if ComboBox1='vtornik' then
 if ComboBox2='1' then
 ComboBox3.Items1:=1;
 e:=combobox3;
 case e of
1:label1.caption:=('4');
2:label1.caption:=('5');
3:label1.caption:=('6');
end;

end.

[Человек_Борща]

Все можно проще:
У каждого ComboBox в свойсве Tag ставишь уникальные цифры, ну чтобы отличались друг от друга. Я просто прописал: 0 1 2

Далее пишем единый обработчик:

procedure TForm1.OnCombosChange(Sender: TObject);
var
  CB:TComboBox absolute Sender;
begin
  case cb.Tag of //Использую уник. значения Tag
  begin
  0: Label1.Сaption:=ComboBox1.Text;
  1: Label1.Сaption:=ComboBox2.Text;
  2: Label1.Сaption:=ComboBox3.Text;
  end;
end;

Назначаем его всем 3м компонентам, и радуемся!

[TeliS]

Сообщение от Человек_Борща

Все можно проще:
У каждого ComboBox в свойсве Tag ставишь уникальные цифры, ну чтобы отличались друг от друга. Я просто прописал: 0 1 2

Далее пишем единый обработчик:

procedure TForm1.OnCombosChange(Sender: TObject);
var
  CB:TComboBox absolute Sender;
begin
  case cb.Tag of //Использую уник. значения Tag
  begin
  0: Label1.Сaption:=ComboBox1.Text;
  1: Label1.Сaption:=ComboBox2.Text;
  2: Label1.Сaption:=ComboBox3.Text;
  end;
end;

Назначаем его всем 3м компонентам, и радуемся!

спасибо! щас попробую