diff --git a/components/tparadoxdataset/demo/main.lfm b/components/tparadoxdataset/demo/main.lfm
index d6abc782f..8514f3fc9 100644
--- a/components/tparadoxdataset/demo/main.lfm
+++ b/components/tparadoxdataset/demo/main.lfm
@@ -6,6 +6,7 @@ object MainForm: TMainForm
   Caption = 'Paradox demo'
   ClientHeight = 413
   ClientWidth = 734
+  OnCreate = FormCreate
   OnShow = btnOpenClick
   LCLVersion = '2.1.0.0'
   object edFileName: TFileNameEdit
@@ -93,7 +94,6 @@ object MainForm: TMainForm
     TabOrder = 3
   end
   object Paradox: TParadoxDataSet
-    TableName = 'D:\Prog_Lazarus\tests\_database\paradox_samplefiles\examples\CUSTOMER.DB'
     FieldDefs = <    
       item
         Name = 'CustNo'
diff --git a/components/tparadoxdataset/demo/main.pas b/components/tparadoxdataset/demo/main.pas
index 5bc6e5ac6..a54e6a5b7 100644
--- a/components/tparadoxdataset/demo/main.pas
+++ b/components/tparadoxdataset/demo/main.pas
@@ -20,6 +20,7 @@ type
     edFileName: TFileNameEdit;
     Paradox: TParadoxDataSet;
     procedure btnOpenClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
 
   public
@@ -42,5 +43,11 @@ begin
   Paradox.Open;
 end;
 
+procedure TMainForm.FormCreate(Sender: TObject);
+begin
+  if ParamCount > 0 then
+    edFileName.FileName := ParamStr(1);
+end;
+
 end.