2 files changed, 15 insertions, 15 deletions
diff --git a/examples/gui/interbasetest/interbasetest.pas b/examples/gui/interbasetest/interbasetest.pas
index 18f67c83..b15aaee5 100644
--- a/examples/gui/interbasetest/interbasetest.pas
+++ b/examples/gui/interbasetest/interbasetest.pas
@@ -30,13 +30,13 @@ type
     Transaction: TIBTransaction;
     Query: TIBQuery;
     DataSource: TDataSource;
-    Box, ConnectionBox: TBoxLayout;
-    ConnectionLabel, ConnectionStateLabel: TLabel;
+    Box, ConnectionBox: TFBoxLayout;
+    ConnectionLabel, ConnectionStateLabel: TFLabel;
     ListBox: TListBox;
-    CurDatasetLabel: TLabel;
+    CurDataseTFLabel: TFLabel;
     CurNameText, CurEMailText: TDBText;
-    Navi: TBoxLayout;
-    FirstDataset, PrevDataset, NextDataset, LastDataset: TButton;
+    Navi: TFBoxLayout;
+    FirstDataset, PrevDataset, NextDataset, LastDataset: TFButton;
     procedure FormCreate(Sender: TObject);
     procedure FirstDatasetClick(Sender: TObject);
     procedure PrevDatasetClick(Sender: TObject);
diff --git a/examples/gui/interbasetest/mainform.frm b/examples/gui/interbasetest/mainform.frm
index 354c5b6e..c1e7917c 100644
--- a/examples/gui/interbasetest/mainform.frm
+++ b/examples/gui/interbasetest/mainform.frm
@@ -11,20 +11,20 @@ object MainForm: TMainForm
   end
   object DataSource: TDataSource
   end
-  object Box: TBoxLayout
+  object Box: TFBoxLayout
     Spacing = 8
     Orientation = Vertical
-    object ConnectionBox: TBoxLayout
-      object ConnectionLabel: TLabel
+    object ConnectionBox: TFBoxLayout
+      object ConnectionLabel: TFLabel
         Text = 'Connected to database? '
       end
-      object ConnectionStateLabel: TLabel
+      object ConnectionStateLabel: TFLabel
         Text = 'unknown'
       end
     end
     object ListBox: TListBox
     end
-    object CurDatasetLabel: TLabel
+    object CurDataseTFLabel: TFLabel
       Text = 'Current dataset:'
     end
     object CurNameText: TDBText
@@ -33,20 +33,20 @@ object MainForm: TMainForm
     object CurEMailText: TDBText
       Text = '<e-mail>'
     end
-    object Navi: TBoxLayout
-      object FirstDataset: TButton
+    object Navi: TFBoxLayout
+      object FirstDataset: TFButton
         Text = 'First'
 	OnClick = FirstDatasetClick
       end
-      object PrevDataset: TButton
+      object PrevDataset: TFButton
         Text = 'Previous'
 	OnClick = PrevDatasetClick
       end
-      object NextDataset: TButton
+      object NextDataset: TFButton
         Text = 'Next'
 	OnClick = NextDatasetClick
       end
-      object LastDataset: TButton
+      object LastDataset: TFButton
         Text = 'Last'
 	OnClick = LastDatasetClick
       end