so sollte es reichen
Note := (Octave + 2) * 12 + (TPanel(Sender).Tag - 1) mod 12;
Mod ist ja 'ne "Punktrechnung" und Minus eine Strichrechnung ... tja, und den Rest hattest'e mal vor Jahrzehnten in der Schule gelernt
Ein Therapeut entspricht 1024 Gigapeut.