Oder man verlässt sich auf innere Heilungskräfte:
Delphi-Quellcode:
function CheckTime(const sTime: String): String;
var
dtTest: TDateTime;
begin
if TryStrToTime(sTime, dtTest)
then Result := TimeToStr(dtTest)
else Result := '23:59:59';
end;
Grüße vom marabu