TabControl и delphi

[kaipov]

Доброго времени суток уважаемые!суть вопроса в том что, мне надо сделать 3 вкладки, в каждой из которых я мог бы писать код. так как я силен в программировании я набрал такой код:
procedure TForm1.TabControl1Change(Sender: TObject);
var kod:integer;
begin
kod:=TabControl1.TabIndex;
case kod of
0: ShowMessage('1');
1: ShowMessage('2');
2: ShowMessage('3');
end;
end;
поправьте меня, или укажите в каком направлении мне идти. Заранее благодарен