Rückgabewert der Funktion '<Element>' könnte undefiniert sei

[diComm]

Du definierst hier

Function GibSchadensFarbe(Farbnr:Integer):Integer; das du einen Integer zurückgibst, tust das aber im Code nicht. Eine Funktion sollte immer ein Result haben, ansonsten mach eine procedure draus.