Var

  AnaForm: TCLForm;

  BtnH, BtnHe, BtnLi, BtnBe, BtnB, BtnC, BtnN, BtnO, BtnF, BtnNe: TCLButton;

  BtnNa, BtnMg, BtnAl, BtnSi, BtnP, BtnS, BtnCl, BtnAr, BtnK, BtnCa: TCLButton;

  BtnSc, BtnTi, BtnV, BtnCr, BtnMn, BtnFe, BtnCo, BtnNi, BtnCu, BtnZn: TCLButton;

  BtnGa, BtnGe, BtnAs, BtnSe, BtnBr, BtnKr: TCLButton;

  BtnRb, BtnSr, BtnY, BtnZr, BtnNb, BtnMo: TCLButton;

  BtnTc, BtnRu, BtnRh, BtnPd, BtnAg, BtnCd, BtnIn, BtnSn, BtnSb, BtnTe, BtnI, BtnXe: TCLButton;

  BtnCs, BtnBa, BtnLa, BtnHf, BtnTa, BtnW, BtnRe, BtnOs, BtnIr, BtnPt, BtnAu, BtnHg: TCLButton;

  BtnTl, BtnPb, BtnBi, BtnPo, BtnAt, BtnRn: TCLButton;

  BtnFr, BtnRa, BtnAc, BtnRf, BtnDb, BtnSg, BtnBh, BtnHs, BtnMt, BtnDs, BtnRg, BtnCn, BtnNh, BtnFl, BtnMc, BtnLv, BtnTs, BtnOg: TCLButton;

void GosterH { ShowMessage('Hidrojen\nAtom No: 1\nTür: Ametal'); }

void GosterHe { ShowMessage('Helyum\nAtom No: 2\nTür: Ametal'); }

void GosterLi { ShowMessage('Lityum\nAtom No: 3\nTür: Metal'); }

void GosterBe { ShowMessage('Berilyum\nAtom No: 4\nTür: Metal'); }

void GosterB { ShowMessage('Bor\nAtom No: 5\nTür: Yarımetal'); }

void GosterC { ShowMessage('Karbon\nAtom No: 6\nTür: Ametal'); }

void GosterN { ShowMessage('Azot\nAtom No: 7\nTür: Ametal'); }

void GosterO { ShowMessage('Oksijen\nAtom No: 8\nTür: Ametal'); }

void GosterF { ShowMessage('Flor\nAtom No: 9\nTür: Ametal'); }

void GosterNe { ShowMessage('Neon\nAtom No: 10\nTür: Ametal'); }

void GosterNa { ShowMessage('Sodyum\nAtom No: 11\nTür: Metal'); }

void GosterMg { ShowMessage('Magnezyum\nAtom No: 12\nTür: Metal'); }

void GosterAl { ShowMessage('Alüminyum\nAtom No: 13\nTür: Metal'); }

void GosterSi { ShowMessage('Silisyum\nAtom No: 14\nTür: Yarımetal'); }

void GosterP { ShowMessage('Fosfor\nAtom No: 15\nTür: Ametal'); }

void GosterS { ShowMessage('Kükürt\nAtom No: 16\nTür: Ametal'); }

void GosterCl { ShowMessage('Klor\nAtom No: 17\nTür: Ametal'); }

void GosterAr { ShowMessage('Argon\nAtom No: 18\nTür: Ametal'); }

void GosterK { ShowMessage('Potasyum\nAtom No: 19\nTür: Metal'); }

void GosterCa { ShowMessage('Kalsiyum\nAtom No: 20\nTür: Metal'); }

void GosterSc { ShowMessage('Skandiyum\nAtom No: 21\nTür: Metal'); }

void GosterTi { ShowMessage('Titanyum\nAtom No: 22\nTür: Metal'); }

void GosterV { ShowMessage('Vanadyum\nAtom No: 23\nTür: Metal'); }

void GosterCr { ShowMessage('Krom\nAtom No: 24\nTür: Metal'); }

void GosterMn { ShowMessage('Manganez\nAtom No: 25\nTür: Metal'); }

void GosterFe { ShowMessage('Demir\nAtom No: 26\nTür: Metal'); }

void GosterCo { ShowMessage('Kobalt\nAtom No: 27\nTür: Metal'); }

void GosterNi { ShowMessage('Nikel\nAtom No: 28\nTür: Metal'); }

void GosterCu { ShowMessage('Bakır\nAtom No: 29\nTür: Metal'); }

void GosterZn { ShowMessage('Çinko\nAtom No: 30\nTür: Metal'); }

void GosterGa { ShowMessage('Galyum\nAtom No: 31\nTür: Metal'); }

void GosterGe { ShowMessage('Germanyum\nAtom No: 32\nTür: Yarımetal'); }

void GosterAs { ShowMessage('Arsenik\nAtom No: 33\nTür: Yarımetal'); }

void GosterSe { ShowMessage('Selenyum\nAtom No: 34\nTür: Ametal'); }

void GosterBr { ShowMessage('Brom\nAtom No: 35\nTür: Ametal'); }

void GosterKr { ShowMessage('Kripton\nAtom No: 36\nTür: Ametal'); }

void GosterRb { ShowMessage('Rubidyum\nAtom No: 37\nTür: Alkali Metal'); }

void GosterSr { ShowMessage('Stronsiyum\nAtom No: 38\nTür: Toprak Alkali Metal'); }

void GosterY  { ShowMessage('İtriyum\nAtom No: 39\nTür: Geçiş Metali'); }

void GosterZr { ShowMessage('Zirkonyum\nAtom No: 40\nTür: Geçiş Metali'); }

void GosterNb { ShowMessage('Niyobyum\nAtom No: 41\nTür: Geçiş Metali'); }

void GosterMo { ShowMessage('Molibden\nAtom No: 42\nTür: Geçiş Metali'); }

void GosterTc { ShowMessage('Teknetyum\nAtom No: 43\nTür: Geçiş Metali'); }

void GosterRu { ShowMessage('Rutenyum\nAtom No: 44\nTür: Geçiş Metali'); }

void GosterRh { ShowMessage('Rodyum\nAtom No: 45\nTür: Geçiş Metali'); }

void GosterPd { ShowMessage('Paladyum\nAtom No: 46\nTür: Geçiş Metali'); }

void GosterAg { ShowMessage('Gümüş\nAtom No: 47\nTür: Geçiş Metali'); }

void GosterCd { ShowMessage('Kadmiyum\nAtom No: 48\nTür: Geçiş Metali'); }

void GosterIn { ShowMessage('İndiyum\nAtom No: 49\nTür: Diğer Metal'); }

void GosterSn { ShowMessage('Kalay\nAtom No: 50\nTür: Diğer Metal'); }

void GosterSb { ShowMessage('Antimon\nAtom No: 51\nTür: Yarı Metal'); }

void GosterTe { ShowMessage('Tellür\nAtom No: 52\nTür: Yarı Metal'); }

void GosterI  { ShowMessage('İyot\nAtom No: 53\nTür: Halojen'); }

void GosterXe { ShowMessage('Ksenon\nAtom No: 54\nTür: Soygaz'); }

void GosterCs { ShowMessage('Sezyum\nAtom No: 55\nTür: Alkali Metal'); }

void GosterBa { ShowMessage('Baryum\nAtom No: 56\nTür: Toprak Alkali Metal'); }

void GosterLa { ShowMessage('Lantan\nAtom No: 57\nTür: Lantanit'); }

void GosterHf { ShowMessage('Hafniyum\nAtom No: 72\nTür: Geçiş Metali'); }

void GosterTa { ShowMessage('Tantal\nAtom No: 73\nTür: Geçiş Metali'); }

void GosterW  { ShowMessage('Tungsten\nAtom No: 74\nTür: Geçiş Metali'); }

void GosterRe { ShowMessage('Renyum\nAtom No: 75\nTür: Geçiş Metali'); }

void GosterOs { ShowMessage('Osmiyum\nAtom No: 76\nTür: Geçiş Metali'); }

void GosterIr { ShowMessage('İridyum\nAtom No: 77\nTür: Geçiş Metali'); }

void GosterPt { ShowMessage('Platin\nAtom No: 78\nTür: Geçiş Metali'); }

void GosterAu { ShowMessage('Altın\nAtom No: 79\nTür: Geçiş Metali'); }

void GosterHg { ShowMessage('Cıva\nAtom No: 80\nTür: Geçiş Metali'); }

void GosterTl { ShowMessage('Talyum\nAtom No: 81\nTür: Baş Metal'); }

void GosterPb { ShowMessage('Kurşun\nAtom No: 82\nTür: Baş Metal'); }

void GosterBi { ShowMessage('Bizmut\nAtom No: 83\nTür: Baş Metal'); }

void GosterPo { ShowMessage('Polonyum\nAtom No: 84\nTür: Yarı Metal'); }

void GosterAt { ShowMessage('Astatin\nAtom No: 85\nTür: Halojen'); }

void GosterRn { ShowMessage('Radon\nAtom No: 86\nTür: Soy Gaz'); }

void GosterFr { ShowMessage('Fransiyum\nAtom No: 87\nTür: Alkali Metal'); }

void GosterRa { ShowMessage('Radyum\nAtom No: 88\nTür: Toprak Alkali Metal'); }

void GosterRf { ShowMessage('Rutherfordiyum\nAtom No: 104\nTür: Geçiş Metali'); }

void GosterDb { ShowMessage('Dubniyum\nAtom No: 105\nTür: Geçiş Metali'); }

void GosterSg { ShowMessage('Seaborgiyum\nAtom No: 106\nTür: Geçiş Metali'); }

void GosterBh { ShowMessage('Bohriyum\nAtom No: 107\nTür: Geçiş Metali'); }

void GosterHs { ShowMessage('Hassium\nAtom No: 108\nTür: Geçiş Metali'); }

void GosterMt { ShowMessage('Meitneriyum\nAtom No: 109\nTür: Geçiş Metali'); }

void GosterDs { ShowMessage('Darmstadtiyum\nAtom No: 110\nTür: Geçiş Metali'); }

void GosterRg { ShowMessage('Röntgeniyum\nAtom No: 111\nTür: Geçiş Metali'); }

void GosterCn { ShowMessage('Kopernikyum\nAtom No: 112\nTür: Geçiş Metali'); }

void GosterNh { ShowMessage('Nihonyum\nAtom No: 113\nTür: Baş Metal'); }

void GosterFl { ShowMessage('Flerovyum\nAtom No: 114\nTür: Baş Metal'); }

void GosterMc { ShowMessage('Moskovyum\nAtom No: 115\nTür: Baş Metal'); }

void GosterLv { ShowMessage('Livermoryum\nAtom No: 116\nTür: Baş Metal'); }

void GosterTs { ShowMessage('Tenesin\nAtom No: 117\nTür: Halojen'); }

void GosterOg { ShowMessage('Oganesson\nAtom No: 118\nTür: Soy Gaz'); }

{

  AnaForm = TCLForm.Create(Self);

  AnaForm.clSetCaption('Periyodik Tablo');

  AnaForm.SetFormColor('#f5f5f5', '', clGNone);

  AnaForm.BtnFormMenu.Visible = False;

  AnaForm.BtnGoBack.Visible = False;

  // Satır 1

  BtnH = AnaForm.AddNewButton(AnaForm, 'BtnH', 'H');

  BtnH.Align = alNone;

  BtnH.Position.X = 10; BtnH.Position.Y = 10;

  BtnH.Width = 50; BtnH.Height = 50;

  BtnH.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnH, tbeOnClick, 'GosterH');

  BtnHe = AnaForm.AddNewButton(AnaForm, 'BtnHe', 'He');

  BtnHe.Align = alNone;

  BtnHe.Position.X = 1030; BtnHe.Position.Y = 10;

  BtnHe.Width = 50; BtnHe.Height = 50;

  BtnHe.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnHe, tbeOnClick, 'GosterHe');

  // Satır 2

  BtnLi = AnaForm.AddNewButton(AnaForm, 'BtnLi', 'Li');

  BtnLi.Align = alNone;

  BtnLi.Position.X = 10; BtnLi.Position.Y = 70;

  BtnLi.Width = 50; BtnLi.Height = 50;

  BtnLi.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnLi, tbeOnClick, 'GosterLi');

  BtnBe = AnaForm.AddNewButton(AnaForm, 'BtnBe', 'Be');

  BtnBe.Align = alNone;

  BtnBe.Position.X = 70; BtnBe.Position.Y = 70;

  BtnBe.Width = 50; BtnBe.Height = 50;

  BtnBe.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnBe, tbeOnClick, 'GosterBe');

  BtnB = AnaForm.AddNewButton(AnaForm, 'BtnB', 'B');

  BtnB.Align = alNone;

  BtnB.Position.X = 730; BtnB.Position.Y = 70;

  BtnB.Width = 50; BtnB.Height = 50;

  BtnB.TextSettings.FontColor = clAlphaColor.clHexToColor('#00cc66');

  AnaForm.AddNewEvent(BtnB, tbeOnClick, 'GosterB');

  BtnC = AnaForm.AddNewButton(AnaForm, 'BtnC', 'C');

  BtnC.Align = alNone;

  BtnC.Position.X = 790; BtnC.Position.Y = 70;

  BtnC.Width = 50; BtnC.Height = 50;

  BtnC.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnC, tbeOnClick, 'GosterC');

  BtnN = AnaForm.AddNewButton(AnaForm, 'BtnN', 'N');

  BtnN.Align = alNone;

  BtnN.Position.X = 850; BtnN.Position.Y = 70;

  BtnN.Width = 50; BtnN.Height = 50;

  BtnN.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnN, tbeOnClick, 'GosterN');

  BtnO = AnaForm.AddNewButton(AnaForm, 'BtnO', 'O');

  BtnO.Align = alNone;

  BtnO.Position.X = 910; BtnO.Position.Y = 70;

  BtnO.Width = 50; BtnO.Height = 50;

  BtnO.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnO, tbeOnClick, 'GosterO');

  BtnF = AnaForm.AddNewButton(AnaForm, 'BtnF', 'F');

  BtnF.Align = alNone;

  BtnF.Position.X = 970; BtnF.Position.Y = 70;

  BtnF.Width = 50; BtnF.Height = 50;

  BtnF.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnF, tbeOnClick, 'GosterF');

  BtnNe = AnaForm.AddNewButton(AnaForm, 'BtnNe', 'Ne');

  BtnNe.Align = alNone;

  BtnNe.Position.X = 1030; BtnNe.Position.Y = 70;

  BtnNe.Width = 50; BtnNe.Height = 50;

  BtnNe.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnNe, tbeOnClick, 'GosterNe');

  // Satır 3

  BtnNa = AnaForm.AddNewButton(AnaForm, 'BtnNa', 'Na');

  BtnNa.Align = alNone;

  BtnNa.Position.X = 10; BtnNa.Position.Y = 130;

  BtnNa.Width = 50; BtnNa.Height = 50;

  BtnNa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnNa, tbeOnClick, 'GosterNa');

  BtnMg = AnaForm.AddNewButton(AnaForm, 'BtnMg', 'Mg');

  BtnMg.Align = alNone;

  BtnMg.Position.X = 70; BtnMg.Position.Y = 130;

  BtnMg.Width = 50; BtnMg.Height = 50;

  BtnMg.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnMg, tbeOnClick, 'GosterMg');

  BtnAl = AnaForm.AddNewButton(AnaForm, 'BtnAl', 'Al');

  BtnAl.Align = alNone;

  BtnAl.Position.X = 730; BtnAl.Position.Y = 130;

  BtnAl.Width = 50; BtnAl.Height = 50;

  BtnAl.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnAl, tbeOnClick, 'GosterAl');

  BtnSi = AnaForm.AddNewButton(AnaForm, 'BtnSi', 'Si');

  BtnSi.Align = alNone;

  BtnSi.Position.X = 790; BtnSi.Position.Y = 130;

  BtnSi.Width = 50; BtnSi.Height = 50;

  BtnSi.TextSettings.FontColor = clAlphaColor.clHexToColor('#00cc66');

  AnaForm.AddNewEvent(BtnSi, tbeOnClick, 'GosterSi');

  BtnP = AnaForm.AddNewButton(AnaForm, 'BtnP', 'P');

  BtnP.Align = alNone;

  BtnP.Position.X = 850; BtnP.Position.Y = 130;

  BtnP.Width = 50; BtnP.Height = 50;

  BtnP.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnP, tbeOnClick, 'GosterP');

  BtnS = AnaForm.AddNewButton(AnaForm, 'BtnS', 'S');

  BtnS.Align = alNone;

  BtnS.Position.X = 910; BtnS.Position.Y = 130;

  BtnS.Width = 50; BtnS.Height = 50;

  BtnS.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnS, tbeOnClick, 'GosterS');

  BtnCl = AnaForm.AddNewButton(AnaForm, 'BtnCl', 'Cl');

  BtnCl.Align = alNone;

  BtnCl.Position.X = 970; BtnCl.Position.Y = 130;

  BtnCl.Width = 50; BtnCl.Height = 50;

  BtnCl.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnCl, tbeOnClick, 'GosterCl');

  BtnAr = AnaForm.AddNewButton(AnaForm, 'BtnAr', 'Ar');

  BtnAr.Align = alNone;

  BtnAr.Position.X = 1030; BtnAr.Position.Y = 130;

  BtnAr.Width = 50; BtnAr.Height = 50;

  BtnAr.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnAr, tbeOnClick, 'GosterAr');

  // Satır 4

  BtnK = AnaForm.AddNewButton(AnaForm, 'BtnK', 'K');

  BtnK.Align = alNone;

  BtnK.Position.X = 10; BtnK.Position.Y = 190;

  BtnK.Width = 50; BtnK.Height = 50;

  BtnK.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnK, tbeOnClick, 'GosterK');

  BtnCa = AnaForm.AddNewButton(AnaForm, 'BtnCa', 'Ca');

  BtnCa.Align = alNone;

  BtnCa.Position.X = 70; BtnCa.Position.Y = 190;

  BtnCa.Width = 50; BtnCa.Height = 50;

  BtnCa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnCa, tbeOnClick, 'GosterCa');

    // Satır 4 - Devamı

  BtnSc = AnaForm.AddNewButton(AnaForm, 'BtnSc', 'Sc');

  BtnSc.Align = alNone;

  BtnSc.Position.X = 130; BtnSc.Position.Y = 190;

  BtnSc.Width = 50; BtnSc.Height = 50;

  BtnSc.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnSc, tbeOnClick, 'GosterSc');

  BtnTi = AnaForm.AddNewButton(AnaForm, 'BtnTi', 'Ti');

  BtnTi.Align = alNone;

  BtnTi.Position.X = 190; BtnTi.Position.Y = 190;

  BtnTi.Width = 50; BtnTi.Height = 50;

  BtnTi.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnTi, tbeOnClick, 'GosterTi');

  BtnV = AnaForm.AddNewButton(AnaForm, 'BtnV', 'V');

  BtnV.Align = alNone;

  BtnV.Position.X = 250; BtnV.Position.Y = 190;

  BtnV.Width = 50; BtnV.Height = 50;

  BtnV.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnV, tbeOnClick, 'GosterV');

  BtnCr = AnaForm.AddNewButton(AnaForm, 'BtnCr', 'Cr');

  BtnCr.Align = alNone;

  BtnCr.Position.X = 310; BtnCr.Position.Y = 190;

  BtnCr.Width = 50; BtnCr.Height = 50;

  BtnCr.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnCr, tbeOnClick, 'GosterCr');

  BtnMn = AnaForm.AddNewButton(AnaForm, 'BtnMn', 'Mn');

  BtnMn.Align = alNone;

  BtnMn.Position.X = 370; BtnMn.Position.Y = 190;

  BtnMn.Width = 50; BtnMn.Height = 50;

  BtnMn.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnMn, tbeOnClick, 'GosterMn');

  BtnFe = AnaForm.AddNewButton(AnaForm, 'BtnFe', 'Fe');

  BtnFe.Align = alNone;

  BtnFe.Position.X = 430; BtnFe.Position.Y = 190;

  BtnFe.Width = 50; BtnFe.Height = 50;

  BtnFe.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnFe, tbeOnClick, 'GosterFe');

  BtnCo = AnaForm.AddNewButton(AnaForm, 'BtnCo', 'Co');

  BtnCo.Align = alNone;

  BtnCo.Position.X = 490; BtnCo.Position.Y = 190;

  BtnCo.Width = 50; BtnCo.Height = 50;

  BtnCo.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnCo, tbeOnClick, 'GosterCo');

  BtnNi = AnaForm.AddNewButton(AnaForm, 'BtnNi', 'Ni');

  BtnNi.Align = alNone;

  BtnNi.Position.X = 550; BtnNi.Position.Y = 190;

  BtnNi.Width = 50; BtnNi.Height = 50;

  BtnNi.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnNi, tbeOnClick, 'GosterNi');

  BtnCu = AnaForm.AddNewButton(AnaForm, 'BtnCu', 'Cu');

  BtnCu.Align = alNone;

  BtnCu.Position.X = 610; BtnCu.Position.Y = 190;

  BtnCu.Width = 50; BtnCu.Height = 50;

  BtnCu.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnCu, tbeOnClick, 'GosterCu');

  BtnZn = AnaForm.AddNewButton(AnaForm, 'BtnZn', 'Zn');

  BtnZn.Align = alNone;

  BtnZn.Position.X = 670; BtnZn.Position.Y = 190;

  BtnZn.Width = 50; BtnZn.Height = 50;

  BtnZn.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnZn, tbeOnClick, 'GosterZn');

    BtnGa = AnaForm.AddNewButton(AnaForm, 'BtnGa', 'Ga');

  BtnGa.Align = alNone;

  BtnGa.Position.X = 730; BtnGa.Position.Y = 190;

  BtnGa.Width = 50; BtnGa.Height = 50;

  BtnGa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnGa, tbeOnClick, 'GosterGa');

  BtnGe = AnaForm.AddNewButton(AnaForm, 'BtnGe', 'Ge');

  BtnGe.Align = alNone;

  BtnGe.Position.X = 790; BtnGe.Position.Y = 190;

  BtnGe.Width = 50; BtnGe.Height = 50;

  BtnGe.TextSettings.FontColor = clAlphaColor.clHexToColor('#00cc66');

  AnaForm.AddNewEvent(BtnGe, tbeOnClick, 'GosterGe');

  BtnAs = AnaForm.AddNewButton(AnaForm, 'BtnAs', 'As');

  BtnAs.Align = alNone;

  BtnAs.Position.X = 850; BtnAs.Position.Y = 190;

  BtnAs.Width = 50; BtnAs.Height = 50;

  BtnAs.TextSettings.FontColor = clAlphaColor.clHexToColor('#00cc66');

  AnaForm.AddNewEvent(BtnAs, tbeOnClick, 'GosterAs');

  BtnSe = AnaForm.AddNewButton(AnaForm, 'BtnSe', 'Se');

  BtnSe.Align = alNone;

  BtnSe.Position.X = 910; BtnSe.Position.Y = 190;

  BtnSe.Width = 50; BtnSe.Height = 50;

  BtnSe.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnSe, tbeOnClick, 'GosterSe');

  BtnBr = AnaForm.AddNewButton(AnaForm, 'BtnBr', 'Br');

  BtnBr.Align = alNone;

  BtnBr.Position.X = 970; BtnBr.Position.Y = 190;

  BtnBr.Width = 50; BtnBr.Height = 50;

  BtnBr.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnBr, tbeOnClick, 'GosterBr');

  BtnKr = AnaForm.AddNewButton(AnaForm, 'BtnKr', 'Kr');

  BtnKr.Align = alNone;

  BtnKr.Position.X = 1030; BtnKr.Position.Y = 190;

  BtnKr.Width = 50; BtnKr.Height = 50;

  BtnKr.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');

  AnaForm.AddNewEvent(BtnKr, tbeOnClick, 'GosterKr');

  

  BtnRb = AnaForm.AddNewButton(AnaForm, 'BtnRb', 'Rb');

  BtnRb.Align = alNone;

  BtnRb.Position.X = 10; BtnRb.Position.Y = 250;

  BtnRb.Width = 50; BtnRb.Height = 50;

  BtnRb.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff0000');

  AnaForm.AddNewEvent(BtnRb, tbeOnClick, 'GosterRb');

  BtnSr = AnaForm.AddNewButton(AnaForm, 'BtnSr', 'Sr');

  BtnSr.Align = alNone;

  BtnSr.Position.X = 70; BtnSr.Position.Y = 250;

  BtnSr.Width = 50; BtnSr.Height = 50;

  BtnSr.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff6600');

  AnaForm.AddNewEvent(BtnSr, tbeOnClick, 'GosterSr');

  BtnY = AnaForm.AddNewButton(AnaForm, 'BtnY', 'Y');

  BtnY.Align = alNone;

  BtnY.Position.X = 130; BtnY.Position.Y = 250;

  BtnY.Width = 50; BtnY.Height = 50;

  BtnY.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnY, tbeOnClick, 'GosterY');

  BtnZr = AnaForm.AddNewButton(AnaForm, 'BtnZr', 'Zr');

  BtnZr.Align = alNone;

  BtnZr.Position.X = 190; BtnZr.Position.Y = 250;

  BtnZr.Width = 50; BtnZr.Height = 50;

  BtnZr.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnZr, tbeOnClick, 'GosterZr');

  BtnNb = AnaForm.AddNewButton(AnaForm, 'BtnNb', 'Nb');

  BtnNb.Align = alNone;

  BtnNb.Position.X = 250; BtnNb.Position.Y = 250;

  BtnNb.Width = 50; BtnNb.Height = 50;

  BtnNb.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnNb, tbeOnClick, 'GosterNb');

  BtnMo = AnaForm.AddNewButton(AnaForm, 'BtnMo', 'Mo');

  BtnMo.Align = alNone;

  BtnMo.Position.X = 310; BtnMo.Position.Y = 250;

  BtnMo.Width = 50; BtnMo.Height = 50;

  BtnMo.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnMo, tbeOnClick, 'GosterMo');

  BtnTc = AnaForm.AddNewButton(AnaForm, 'BtnTc', 'Tc');

  BtnTc.Align = alNone;

  BtnTc.Position.X = 370; BtnTc.Position.Y = 250;

  BtnTc.Width = 50; BtnTc.Height = 50;

  BtnTc.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnTc, tbeOnClick, 'GosterTc');

  BtnRu = AnaForm.AddNewButton(AnaForm, 'BtnRu', 'Ru');

  BtnRu.Align = alNone;

  BtnRu.Position.X = 430; BtnRu.Position.Y = 250;

  BtnRu.Width = 50; BtnRu.Height = 50;

  BtnRu.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnRu, tbeOnClick, 'GosterRu');

  BtnRh = AnaForm.AddNewButton(AnaForm, 'BtnRh', 'Rh');

  BtnRh.Align = alNone;

  BtnRh.Position.X = 490; BtnRh.Position.Y = 250;

  BtnRh.Width = 50; BtnRh.Height = 50;

  BtnRh.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnRh, tbeOnClick, 'GosterRh');

  BtnPd = AnaForm.AddNewButton(AnaForm, 'BtnPd', 'Pd');

  BtnPd.Align = alNone;

  BtnPd.Position.X = 550; BtnPd.Position.Y = 250;

  BtnPd.Width = 50; BtnPd.Height = 50;

  BtnPd.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnPd, tbeOnClick, 'GosterPd');

  BtnAg = AnaForm.AddNewButton(AnaForm, 'BtnAg', 'Ag');

  BtnAg.Align = alNone;

  BtnAg.Position.X = 610; BtnAg.Position.Y = 250;

  BtnAg.Width = 50; BtnAg.Height = 50;

  BtnAg.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnAg, tbeOnClick, 'GosterAg');

  BtnCd = AnaForm.AddNewButton(AnaForm, 'BtnCd', 'Cd');

  BtnCd.Align = alNone;

  BtnCd.Position.X = 670; BtnCd.Position.Y = 250;

  BtnCd.Width = 50; BtnCd.Height = 50;

  BtnCd.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

  AnaForm.AddNewEvent(BtnCd, tbeOnClick, 'GosterCd');

  BtnIn = AnaForm.AddNewButton(AnaForm, 'BtnIn', 'In');

  BtnIn.Align = alNone;

  BtnIn.Position.X = 730; BtnIn.Position.Y = 250;

  BtnIn.Width = 50; BtnIn.Height = 50;

  BtnIn.TextSettings.FontColor = clAlphaColor.clHexToColor('#cc9900');

  AnaForm.AddNewEvent(BtnIn, tbeOnClick, 'GosterIn');

  BtnSn = AnaForm.AddNewButton(AnaForm, 'BtnSn', 'Sn');

  BtnSn.Align = alNone;

  BtnSn.Position.X = 790; BtnSn.Position.Y = 250;

  BtnSn.Width = 50; BtnSn.Height = 50;

  BtnSn.TextSettings.FontColor = clAlphaColor.clHexToColor('#cc9900');

  AnaForm.AddNewEvent(BtnSn, tbeOnClick, 'GosterSn');

  BtnSb = AnaForm.AddNewButton(AnaForm, 'BtnSb', 'Sb');

  BtnSb.Align = alNone;

  BtnSb.Position.X = 850; BtnSb.Position.Y = 250;

  BtnSb.Width = 50; BtnSb.Height = 50;

  BtnSb.TextSettings.FontColor = clAlphaColor.clHexToColor('#00ccff');

  AnaForm.AddNewEvent(BtnSb, tbeOnClick, 'GosterSb');

  BtnTe = AnaForm.AddNewButton(AnaForm, 'BtnTe', 'Te');

  BtnTe.Align = alNone;

  BtnTe.Position.X = 910; BtnTe.Position.Y = 250;

  BtnTe.Width = 50; BtnTe.Height = 50;

  BtnTe.TextSettings.FontColor = clAlphaColor.clHexToColor('#00ccff');

  AnaForm.AddNewEvent(BtnTe, tbeOnClick, 'GosterTe');

  BtnI = AnaForm.AddNewButton(AnaForm, 'BtnI', 'I');

  BtnI.Align = alNone;

  BtnI.Position.X = 970; BtnI.Position.Y = 250;

  BtnI.Width = 50; BtnI.Height = 50;

  BtnI.TextSettings.FontColor = clAlphaColor.clHexToColor('#00cc00');

  AnaForm.AddNewEvent(BtnI, tbeOnClick, 'GosterI');

  BtnXe = AnaForm.AddNewButton(AnaForm, 'BtnXe', 'Xe');

  BtnXe.Align = alNone;

  BtnXe.Position.X = 1030; BtnXe.Position.Y = 250;

  BtnXe.Width = 50; BtnXe.Height = 50;

  BtnXe.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999ff');

  AnaForm.AddNewEvent(BtnXe, tbeOnClick, 'GosterXe');

  

  BtnCs = AnaForm.AddNewButton(AnaForm, 'BtnCs', 'Cs');

BtnCs.Align = alNone;

BtnCs.Position.X = 10; BtnCs.Position.Y = 310;

BtnCs.Width = 50; BtnCs.Height = 50;

BtnCs.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff0000');

AnaForm.AddNewEvent(BtnCs, tbeOnClick, 'GosterCs');

BtnBa = AnaForm.AddNewButton(AnaForm, 'BtnBa', 'Ba');

BtnBa.Align = alNone;

BtnBa.Position.X = 70; BtnBa.Position.Y = 310;

BtnBa.Width = 50; BtnBa.Height = 50;

BtnBa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff6600');

AnaForm.AddNewEvent(BtnBa, tbeOnClick, 'GosterBa');

  BtnLa = AnaForm.AddNewButton(AnaForm, 'BtnLa', 'La');

BtnLa.Align = alNone;

BtnLa.Position.X = 130; BtnLa.Position.Y = 310;

BtnLa.Width = 50; BtnLa.Height = 50;

BtnLa.TextSettings.FontColor = clAlphaColor.clHexToColor('#9966cc'); // Lantanit

AnaForm.AddNewEvent(BtnLa, tbeOnClick, 'GosterLa');

BtnHf = AnaForm.AddNewButton(AnaForm, 'BtnHf', 'Hf');

BtnHf.Align = alNone;

BtnHf.Position.X = 190; BtnHf.Position.Y = 310;

BtnHf.Width = 50; BtnHf.Height = 50;

BtnHf.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

AnaForm.AddNewEvent(BtnHf, tbeOnClick, 'GosterHf');

BtnTa = AnaForm.AddNewButton(AnaForm, 'BtnTa', 'Ta');

BtnTa.Align = alNone;

BtnTa.Position.X = 250; BtnTa.Position.Y = 310;

BtnTa.Width = 50; BtnTa.Height = 50;

BtnTa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

AnaForm.AddNewEvent(BtnTa, tbeOnClick, 'GosterTa');

BtnW = AnaForm.AddNewButton(AnaForm, 'BtnW', 'W');

BtnW.Align = alNone;

BtnW.Position.X = 310; BtnW.Position.Y = 310;

BtnW.Width = 50; BtnW.Height = 50;

BtnW.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

AnaForm.AddNewEvent(BtnW, tbeOnClick, 'GosterW');

BtnRe = AnaForm.AddNewButton(AnaForm, 'BtnRe', 'Re');

BtnRe.Align = alNone;

BtnRe.Position.X = 370; BtnRe.Position.Y = 310;

BtnRe.Width = 50; BtnRe.Height = 50;

BtnRe.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

AnaForm.AddNewEvent(BtnRe, tbeOnClick, 'GosterRe');

BtnOs = AnaForm.AddNewButton(AnaForm, 'BtnOs', 'Os');

BtnOs.Align = alNone;

BtnOs.Position.X = 430; BtnOs.Position.Y = 310;

BtnOs.Width = 50; BtnOs.Height = 50;

BtnOs.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

AnaForm.AddNewEvent(BtnOs, tbeOnClick, 'GosterOs');

BtnIr = AnaForm.AddNewButton(AnaForm, 'BtnIr', 'Ir');

BtnIr.Align = alNone;

BtnIr.Position.X = 490; BtnIr.Position.Y = 310;

BtnIr.Width = 50; BtnIr.Height = 50;

BtnIr.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

AnaForm.AddNewEvent(BtnIr, tbeOnClick, 'GosterIr');

BtnPt = AnaForm.AddNewButton(AnaForm, 'BtnPt', 'Pt');

BtnPt.Align = alNone;

BtnPt.Position.X = 550; BtnPt.Position.Y = 310;

BtnPt.Width = 50; BtnPt.Height = 50;

BtnPt.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

AnaForm.AddNewEvent(BtnPt, tbeOnClick, 'GosterPt');

BtnAu = AnaForm.AddNewButton(AnaForm, 'BtnAu', 'Au');

BtnAu.Align = alNone;

BtnAu.Position.X = 610; BtnAu.Position.Y = 310;

BtnAu.Width = 50; BtnAu.Height = 50;

BtnAu.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

AnaForm.AddNewEvent(BtnAu, tbeOnClick, 'GosterAu');

BtnHg = AnaForm.AddNewButton(AnaForm, 'BtnHg', 'Hg');

BtnHg.Align = alNone;

BtnHg.Position.X = 670; BtnHg.Position.Y = 310;

BtnHg.Width = 50; BtnHg.Height = 50;

BtnHg.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');

AnaForm.AddNewEvent(BtnHg, tbeOnClick, 'GosterHg');

BtnTl = AnaForm.AddNewButton(AnaForm, 'BtnTl', 'Tl');

BtnTl.Align = alNone;

BtnTl.Position.X = 730; BtnTl.Position.Y = 310;

BtnTl.Width = 50; BtnTl.Height = 50;

BtnTl.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal

AnaForm.AddNewEvent(BtnTl, tbeOnClick, 'GosterTl');

BtnPb = AnaForm.AddNewButton(AnaForm, 'BtnPb', 'Pb');

BtnPb.Align = alNone;

BtnPb.Position.X = 790; BtnPb.Position.Y = 310;

BtnPb.Width = 50; BtnPb.Height = 50;

BtnPb.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal

AnaForm.AddNewEvent(BtnPb, tbeOnClick, 'GosterPb');

BtnBi = AnaForm.AddNewButton(AnaForm, 'BtnBi', 'Bi');

BtnBi.Align = alNone;

BtnBi.Position.X = 850; BtnBi.Position.Y = 310;

BtnBi.Width = 50; BtnBi.Height = 50;

BtnBi.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal

AnaForm.AddNewEvent(BtnBi, tbeOnClick, 'GosterBi');

BtnPo = AnaForm.AddNewButton(AnaForm, 'BtnPo', 'Po');

BtnPo.Align = alNone;

BtnPo.Position.X = 910; BtnPo.Position.Y = 310;

BtnPo.Width = 50; BtnPo.Height = 50;

BtnPo.TextSettings.FontColor = clAlphaColor.clHexToColor('#66cc66'); // Yarı metal

AnaForm.AddNewEvent(BtnPo, tbeOnClick, 'GosterPo');

BtnAt = AnaForm.AddNewButton(AnaForm, 'BtnAt', 'At');

BtnAt.Align = alNone;

BtnAt.Position.X = 970; BtnAt.Position.Y = 310;

BtnAt.Width = 50; BtnAt.Height = 50;

BtnAt.TextSettings.FontColor = clAlphaColor.clHexToColor('#339966'); // Halojen

AnaForm.AddNewEvent(BtnAt, tbeOnClick, 'GosterAt');

BtnRn = AnaForm.AddNewButton(AnaForm, 'BtnRn', 'Rn');

BtnRn.Align = alNone;

BtnRn.Position.X = 1030; BtnRn.Position.Y = 310;

BtnRn.Width = 50; BtnRn.Height = 50;

BtnRn.TextSettings.FontColor = clAlphaColor.clHexToColor('#00ccff'); // Soy gaz

AnaForm.AddNewEvent(BtnRn, tbeOnClick, 'GosterRn');

BtnFr = AnaForm.AddNewButton(AnaForm, 'BtnFr', 'Fr');

BtnFr.Align = alNone;

BtnFr.Position.X = 10; BtnFr.Position.Y = 370;

BtnFr.Width = 50; BtnFr.Height = 50;

BtnFr.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff6666'); // Alkali metal

AnaForm.AddNewEvent(BtnFr, tbeOnClick, 'GosterFr');

BtnRa = AnaForm.AddNewButton(AnaForm, 'BtnRa', 'Ra');

BtnRa.Align = alNone;

BtnRa.Position.X = 70; BtnRa.Position.Y = 370;

BtnRa.Width = 50; BtnRa.Height = 50;

BtnRa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ffcc66'); // Toprak alkali

AnaForm.AddNewEvent(BtnRa, tbeOnClick, 'GosterRa');

BtnRf = AnaForm.AddNewButton(AnaForm, 'BtnRf', 'Rf');

BtnRf.Align = alNone;

BtnRf.Position.X = 130; BtnRf.Position.Y = 370;

BtnRf.Width = 50; BtnRf.Height = 50;

BtnRf.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali

AnaForm.AddNewEvent(BtnRf, tbeOnClick, 'GosterRf');

BtnDb = AnaForm.AddNewButton(AnaForm, 'BtnDb', 'Db');

BtnDb.Align = alNone;

BtnDb.Position.X = 190; BtnDb.Position.Y = 370;

BtnDb.Width = 50; BtnDb.Height = 50;

BtnDb.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali

AnaForm.AddNewEvent(BtnDb, tbeOnClick, 'GosterDb');

BtnSg = AnaForm.AddNewButton(AnaForm, 'BtnSg', 'Sg');

BtnSg.Align = alNone;

BtnSg.Position.X = 250; BtnSg.Position.Y = 370;

BtnSg.Width = 50; BtnSg.Height = 50;

BtnSg.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali

AnaForm.AddNewEvent(BtnSg, tbeOnClick, 'GosterSg');

BtnBh = AnaForm.AddNewButton(AnaForm, 'BtnBh', 'Bh');

BtnBh.Align = alNone;

BtnBh.Position.X = 310; BtnBh.Position.Y = 370;

BtnBh.Width = 50; BtnBh.Height = 50;

BtnBh.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali

AnaForm.AddNewEvent(BtnBh, tbeOnClick, 'GosterBh');

BtnHs = AnaForm.AddNewButton(AnaForm, 'BtnHs', 'Hs');

BtnHs.Align = alNone;

BtnHs.Position.X = 370; BtnHs.Position.Y = 370;

BtnHs.Width = 50; BtnHs.Height = 50;

BtnHs.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali

AnaForm.AddNewEvent(BtnHs, tbeOnClick, 'GosterHs');

BtnMt = AnaForm.AddNewButton(AnaForm, 'BtnMt', 'Mt');

BtnMt.Align = alNone;

BtnMt.Position.X = 430; BtnMt.Position.Y = 370;

BtnMt.Width = 50; BtnMt.Height = 50;

BtnMt.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali

AnaForm.AddNewEvent(BtnMt, tbeOnClick, 'GosterMt');

BtnDs = AnaForm.AddNewButton(AnaForm, 'BtnDs', 'Ds');

BtnDs.Align = alNone;

BtnDs.Position.X = 490; BtnDs.Position.Y = 370;

BtnDs.Width = 50; BtnDs.Height = 50;

BtnDs.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali

AnaForm.AddNewEvent(BtnDs, tbeOnClick, 'GosterDs');

BtnRg = AnaForm.AddNewButton(AnaForm, 'BtnRg', 'Rg');

BtnRg.Align = alNone;

BtnRg.Position.X = 550; BtnRg.Position.Y = 370;

BtnRg.Width = 50; BtnRg.Height = 50;

BtnRg.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali

AnaForm.AddNewEvent(BtnRg, tbeOnClick, 'GosterRg');

BtnCn = AnaForm.AddNewButton(AnaForm, 'BtnCn', 'Cn');

BtnCn.Align = alNone;

BtnCn.Position.X = 610; BtnCn.Position.Y = 370;

BtnCn.Width = 50; BtnCn.Height = 50;

BtnCn.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali

AnaForm.AddNewEvent(BtnCn, tbeOnClick, 'GosterCn');

BtnNh = AnaForm.AddNewButton(AnaForm, 'BtnNh', 'Nh');

BtnNh.Align = alNone;

BtnNh.Position.X = 670; BtnNh.Position.Y = 370;

BtnNh.Width = 50; BtnNh.Height = 50;

BtnNh.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal

AnaForm.AddNewEvent(BtnNh, tbeOnClick, 'GosterNh');

BtnFl = AnaForm.AddNewButton(AnaForm, 'BtnFl', 'Fl');

BtnFl.Align = alNone;

BtnFl.Position.X = 730; BtnFl.Position.Y = 370;

BtnFl.Width = 50; BtnFl.Height = 50;

BtnFl.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal

AnaForm.AddNewEvent(BtnFl, tbeOnClick, 'GosterFl');

BtnMc = AnaForm.AddNewButton(AnaForm, 'BtnMc', 'Mc');

BtnMc.Align = alNone;

BtnMc.Position.X = 790; BtnMc.Position.Y = 370;

BtnMc.Width = 50; BtnMc.Height = 50;

BtnMc.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal

AnaForm.AddNewEvent(BtnMc, tbeOnClick, 'GosterMc');

BtnLv = AnaForm.AddNewButton(AnaForm, 'BtnLv', 'Lv');

BtnLv.Align = alNone;

BtnLv.Position.X = 850; BtnLv.Position.Y = 370;

BtnLv.Width = 50; BtnLv.Height = 50;

BtnLv.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal

AnaForm.AddNewEvent(BtnLv, tbeOnClick, 'GosterLv');

BtnTs = AnaForm.AddNewButton(AnaForm, 'BtnTs', 'Ts');

BtnTs.Align = alNone;

BtnTs.Position.X = 910; BtnTs.Position.Y = 370;

BtnTs.Width = 50; BtnTs.Height = 50;

BtnTs.TextSettings.FontColor = clAlphaColor.clHexToColor('#339966'); // Halojen

AnaForm.AddNewEvent(BtnTs, tbeOnClick, 'GosterTs');

BtnOg = AnaForm.AddNewButton(AnaForm, 'BtnOg', 'Og');

BtnOg.Align = alNone;

BtnOg.Position.X = 970; BtnOg.Position.Y = 370;

BtnOg.Width = 50; BtnOg.Height = 50;

BtnOg.TextSettings.FontColor = clAlphaColor.clHexToColor('#00ccff'); // Soy gaz

AnaForm.AddNewEvent(BtnOg, tbeOnClick, 'GosterOg');

  AnaForm.Run();

}