object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 277
  ClientWidth = 624
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btn_Connect: TButton
    Left = 160
    Top = 48
    Width = 75
    Height = 25
    Caption = 'btn_Connect'
    TabOrder = 0
    OnClick = btn_ConnectClick
  end
  object dbGrd_1: TDBGrid
    Left = 216
    Top = 149
    Width = 320
    Height = 120
    DataSource = DSS_1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object con_1: TFDConnection
    Params.Strings = (
      'Database=mybase'
      'User_Name=postgres'
      'Password=12345'
      'Server=10.10.10.17'
      'CharacterSet=WIN1251'
      'DriverID=PG')
    LoginPrompt = False
    Transaction = tr_1
    UpdateTransaction = tr_2
    Left = 68
    Top = 96
  end
  object pgLink_1: TFDPhysPgDriverLink
    Left = 108
    Top = 96
  end
  object tr_1: TFDTransaction
    Connection = con_1
    Left = 172
    Top = 136
  end
  object tr_2: TFDTransaction
    Connection = con_1
    Left = 180
    Top = 184
  end
  object DS_1: TFDQuery
    Connection = con_1
    SQL.Strings = (
      'select 1')
    Left = 252
    Top = 104
  end
  object DSS_1: TDataSource
    DataSet = DS_1
    Left = 284
    Top = 104
  end
end

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, 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.Phys.PG,
  FireDAC.Phys.PGDef, FireDAC.VCLUI.Wait, FireDAC.Comp.Client, Data.DB,
  FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,
  FireDAC.Comp.DataSet, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids;

type
  TForm2 = class(TForm)
    con_1: TFDConnection;
    pgLink_1: TFDPhysPgDriverLink;
    tr_1: TFDTransaction;
    tr_2: TFDTransaction;
    DS_1: TFDQuery;
    btn_Connect: TButton;
    DSS_1: TDataSource;
    dbGrd_1: TDBGrid;
    procedure btn_ConnectClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.btn_ConnectClick(Sender: TObject);
begin
 con_1.Open;
   DS_1.Open;
end;

end.