* Fix duplicate implementations

packages/rtl/sysutils.pas

@@ -2610,12 +2610,6 @@ begin
     result := StrToDate(S,ShortDateFormat,separator)
 end;
 
-function StrToDate(const S: String): TDateTime;
-begin
-  result := StrToDate(S,ShortDateFormat,#0);
-end;
-
-
 function StrToDate(const S: String): TDateTime;
 begin
   result := StrToDate(S,ShortDateFormat,#0);
@@ -3187,7 +3181,13 @@ end;
 
 function TryStrToDate(const S: String; out Value: TDateTime): Boolean;
 begin
-    result := TryStrToDate(S, Value, #0);
+  Result:=TryStrToDate(S,Value,ShortDateFormat,#0);
+end;
+
+function TryStrToDate(const S: String; out Value: TDateTime; separator : char): Boolean;
+
+begin
+  Result:=TryStrToDate(S,Value,ShortDateFormat,Separator);
 end;
 
 function TryStrToDate(const S: String; out Value: TDateTime;
@@ -3206,16 +3206,7 @@ begin
 end;
 
 
-function TryStrToDate(const S: String; out Value: TDateTime): Boolean;
-begin
-  Result:=TryStrToDate(S,Value,ShortDateFormat,#0);
-end;
 
-function TryStrToDate(const S: String; out Value: TDateTime; separator : char): Boolean;
-
-begin
-  Result:=TryStrToDate(S,Value,ShortDateFormat,Separator);
-end;
 
 function TryStrToTime(const S: String; out Value: TDateTime; separator : char): Boolean;
 Var