Moin...
Als erstes schreibst du uns bitte mal deine Delphi Version.
Da können wir genauer helfen.
Das Problem hat
imho nichts mit der
if then Orgie zu tun. Durch die vielen Zeilen, und der damit verbundenen Unübersichtlichkeit, können sich andere Fehler einschleichen.
Tipp / eine Möglichkeit:
Die Daten z.B.
Bär = Baer extern in einer INI oder Textdatei vorhalten. Diese in das Programm einlesen und in einer Liste oder Dictionary verwalten. Das erspart bei Ergänzungen das Ändern des Programmes...