diff --git a/lcl/extdlgs.pas b/lcl/extdlgs.pas
index 5575d343bd..b6d6bd8fce 100644
--- a/lcl/extdlgs.pas
+++ b/lcl/extdlgs.pas
@@ -1220,6 +1220,7 @@ begin
     ModalResult:=mrOK;
     OnClick:=@GetNewDate;
     Align:=alRight;
+    Default:=True;
   end;
 
   cancelButton:=TButton.Create(Self);
@@ -1231,6 +1232,7 @@ begin
     Width:=DF.Canvas.TextWidth(CancelCaption)+2*dw;;
     ModalResult:=mrCancel;
     Align:=alLeft;
+    Cancel:=True;
   end;
 
   Result:=DF.ShowModal=mrOK;
diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index 6f7bc55603..45209bd033 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -861,7 +861,6 @@ begin
       Append(DebugText^)
     else
       Rewrite(DebugText^);
-    writeln(DebugText^,'Created.');
   end
   else begin
     if TextRec(Output).Mode=fmClosed then