program Project1;
 
uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1};
 
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Form1.GetF1();
  Application.Run;
 
end.
 
 
 
 
 
 
 
 
 
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages,
  System.SysUtils, System.Variants, System.Classes, System.IniFiles,
  Vcl.Controls, Vcl.StdCtrls, Vcl.Graphics, Vcl.Forms, Vcl.Dialogs, Vcl.ToolWin, Vcl.ComCtrls,
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf,
  FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async,
  FireDAC.Phys, FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS,
  FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet,
  FireDAC.Comp.Client, FireDAC.Phys.ODBC, FireDAC.Phys.MySQLDef,
  FireDAC.Phys.MySQL, FireDAC.Phys.ODBCDef, FireDAC.Phys.ODBCBase;
 
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    FDConnection1: TFDConnection;
    FDTable1: TFDTable;
    FDPhysODBCDriverLink1: TFDPhysODBCDriverLink;
    DataSource1: TDataSource;
 
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure GetF1;
 
  private
    { Private declarations }
 
  public
    { Public declarations }
 
  end;
 
var
   Form1: TForm1;
 
 
 
implementation
 
{$R *.dfm}
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     ShowMessage('Ok');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   Close;
end;
 
 
procedure TForm1.GetF1();
 
begin
 
     FDPhysODBCDriverLink1.DriverID := 'ODBC';
     FDPhysODBCDriverLink1.ODBCDriver := 'Microsoft dBase Driver (*.dbf)';
 
     FDConnection1.DriverName := 'ODBC';
     FDConnection1.Params.Values['Database'] := 'D:\IN';  
     FDConnection1.LoginPrompt := False;
 
     FDTable1.Connection := FDConnection1;
     FDTable1.TableName := 'table1.dbf';
 
     DataSource1.DataSet := FDTable1;
 
     FDConnection1.Connected := True;
 
     FDTable1.Open;
 
     while not FDTable1.Eof do
           begin
               ListBox1.Items.Add(FDTable1.FieldByName('F1').AsString);
           end;
     FDTable1.Close;
 
 
end;
 
end.