Ok, jetzt verstehe ich es.
Nur kommt eine Fehlermeldung die ich nicht verstehe.
Zitat:
Rückgabewert der Funktion 'getNr' könnte undefiniert sein.
Und dann gibts noch eine bei der
Label1.Caption := getNR('a'); makiert wird.
Zitat:
Inkompatible typen 'String und Integer'