diff --git a/lcl/editbtn.pas b/lcl/editbtn.pas
index 2cb10a8d9b..a90597f534 100644
--- a/lcl/editbtn.pas
+++ b/lcl/editbtn.pas
@@ -2073,9 +2073,11 @@ end;
 { TTimeEdit }
 
 function TTimeEdit.GetTime: TDateTime;
+var
+  TmpResult: TDateTime;
 begin
-  if DirectInput then
-    TryParseInput(Text, FTime);
+  if DirectInput and TryParseInput(Text, TmpResult) then
+    FTime := TmpResult;
   Result := FTime;
   if IsEmptyTime then begin
     if FDefaultNow then