1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function Sprache(ListenIndex: Integer): string;
  begin
    Case Listenindex of
      0: Sprache = 'ZH';  // An dieser Stelle erscheint der Fehler
    ...
  end;
end;

...

// Aufruf der Funktion
daten.Sprache := Sprache(cbo_Sprache.ItemIndex);