Dies Beispiel ist nicht schlecht, denn:
Delphi-Quellcode:
Function GibSchadensFarbe(Farbnr:Integer):Integer;
begin
case Farbnr of
0: Result := 'clBlue';
1: Result := 'clRed';
2: Result := 'clWhite';
250: Result := 'clNone';
else Result := 'clNone'; // <- Das hast Du vergessen, damit sicher ein gültiger Wert zurück gegeben wird.
end;
end;
Edit: Roter Kasten, wo warst Du?