Rückgabewert könnte undefiniert sein !

[kiar]

folgende Funktion

Delphi-Quellcode:

function Holedaten(s:string):TDatetime;
    var
      a:string;
    begin
        a:= Stringreplace(stringreplace(s,'.','0',[rfReplaceAll]),' ','0',
                          [rfReplaceAll]);
         if strtoInt(a) <> 0 then
            result:=(strtoDate(s))
          else
            showmessage('Es müssen beide Felder ausgefüllt werden!');
    end;

ist ja klar, das der Rückgabewert undefiniert sein kann und zwar wenn
 a = 0 habe den else Teil so geändert

Delphi-Quellcode:

else
 begin
    showmessage('Es müssen beide Felder ausgefüllt werden!');
    result :=now;
 end;

das gefällt mir aber nicht.

was gibt es für lösungsmöglichkeiten.

danke raik