Funktion aus anderer Unit einbinden?

[Berlinermauer]

aber jetzt hab ich ein Problem mit case :

Delphi-Quellcode:

case Code of
'exception1' :  MessageBox('blub');
'excptn2' : MessageBox('blubdiebub');
end;

irgendwie mag er da keine Variabeln am anfang. ohne dass ich es in zahlen umwandeln muss wie kann ich es machen?