diff --git a/applications/lazstats/source/forms/simulations/distribunit.pas b/applications/lazstats/source/forms/simulations/distribunit.pas
index 4db133183..319d5033f 100644
--- a/applications/lazstats/source/forms/simulations/distribunit.pas
+++ b/applications/lazstats/source/forms/simulations/distribunit.pas
@@ -73,6 +73,7 @@ type
 var
   DistribFrm: TDistribFrm;
 
+
 implementation
 
 {$R *.lfm}
@@ -196,7 +197,7 @@ procedure TDistribFrm.AdjustConstraints;
 begin
   inherited;
 
-  paramsPanel.Constraints.MinWidth := 3*CloseBtn.Width + 2*CloseBtn.BorderSpacing.Left;
+  ParamsPanel.Constraints.MinWidth := 3*CloseBtn.Width + 2*CloseBtn.BorderSpacing.Left;
 
   ParamsPanel.Constraints.MinHeight :=
     ShowCriticalValuesChk.Top + ShowCriticalValuesChk.Height + ShowCriticalValuesChk.BorderSpacing.Bottom +
@@ -206,8 +207,6 @@ end;
 
 procedure TDistribFrm.Compute;
 var
-  msg: String;
-  C: TWinControl;
   ok: Boolean;
 begin
   inherited;
@@ -238,7 +237,7 @@ begin
   end;
 
   if not ok then
-    MessageDlg('Please select a distribution.', mtError, [mbOK], 0);
+    ErrorMsg('Please select a distribution.');
 end;