Frage zur If-Clause

[LukeGee]

Hallo,

ich bin ein Programm am programmieren, dass die Tabs für die Gitarre für die ganzen Tonleitern anzeigt. man klickt auf ne skale, dann gibt das ding in nem label ne skale aus, diezu der ersten passt und wenn man auf des label klickt soll es den tab ausgeben. einmal funktionierts auch, aber wenn ne andre skale drin steht zeigts das an, was bei der anderen kommen sollte.

hier der code:

Delphi-Quellcode:

  if (CScale1.Caption='C')
    then
      ek.Caption:='e|-------------------------------------------------|';
      B.Caption:='B|---------------------------------10-12-13---------|';
      G.Caption:='G|--------------------------9-10-12-----------------|';
      D.Caption:='D|-----------------9-10-12--------------------------|';
      A.Caption:='A|---------8-10-12----------------------------------|';
      E.Caption:='E|-8-10-12------------------------------------------|';

  if (CScale1.Caption='D')
    then
      ek.Caption:='e|--------------------------------------------------|';
      B.Caption:='B|----------------------------------12-14-15---------|';
      G.Caption:='G|--------------------------11-12-14-----------------|';
      D.Caption:='D|-----------------11-12-14--------------------------|';
      A.Caption:='A|---------10-12-14----------------------------------|';
      E.Caption:='E|-10-12-14------------------------------------------|';

also wenn ich CScale1 n 'C' steht soll der das unten ausgeben. wenn n 'D' steht das was da drunter steht, aberwenn n D drin ist und ich klicke kommt das, was bei 'C' kommen sollte. was mach ich falsch und gibts da auch noch andre möglichkeiten das eventuell einfacher zu prograjmmieren?

MfG Lukas