procedure TForm1.TabControl1Change(Sender: TObject);
begin
 if TabControl1.Tabs.Strings[TabControl1.TabIndex]='11111111' then
  begin
    Memo1.Lines.Text:='Эта первая вкладка!';
  end;

 if TabControl1.Tabs.Strings[TabControl1.TabIndex]='22222222' then
  begin
    Memo1.Lines.Text:='Эта вторая вкладка!';
  end;

 if TabControl1.Tabs.Strings[TabControl1.TabIndex]='33333333' then
  begin
    Memo1.Lines.Text:='Эта третья вкладка!';
  end;
end;