unit Main;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Data.DB,
 Data.Win.ADODB, Vcl.StdCtrls, Vcl.ExtCtrls;

type
 TfmMain = class(TForm)
   ADOConn: TADOConnection;
   ADOSp: TADOStoredProc;
   ADOSpID: TStringField;
   dsADOSp: TDataSource;
   DBGrid1: TDBGrid;
   Panel1: TPanel;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 fmMain: TfmMain;

implementation

{$R *.dfm}

procedure TfmMain.Button1Click(Sender: TObject);
begin
 ADOConn.Connected := true;
 ADOSp.Active := true;
end;

end.

object fmMain: TfmMain
 Left = 0
 Top = 0
 Caption = 'fmMain'
 ClientHeight = 190
 ClientWidth = 493
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'Tahoma'
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object DBGrid1: TDBGrid
   Left = 0
   Top = 0
   Width = 493
   Height = 149
   Align = alClient
   DataSource = dsADOSp
   TabOrder = 0
   TitleFont.Charset = DEFAULT_CHARSET
   TitleFont.Color = clWindowText
   TitleFont.Height = -11
   TitleFont.Name = 'Tahoma'
   TitleFont.Style = []
   Columns = <
     item
       Expanded = False
       FieldName = 'ID'
       Visible = True
     end>
 end
 object Panel1: TPanel
   Left = 0
   Top = 149
   Width = 493
   Height = 41
   Align = alBottom
   TabOrder = 1
   object Button1: TButton
     Left = 16
     Top = 8
     Width = 75
     Height = 25
     Caption = 'Button1'
     TabOrder = 0
     OnClick = Button1Click
   end
 end
 object ADOConn: TADOConnection
   ConnectionString =
     'Provider=OraOLEDB.Oracle.1;Persist Security Info=False;Data Sour' +
     'ce=MyDB;Extended Properties=\"PLSQLRset=1\"'
   Mode = cmReadWrite
   Provider = 'OraOLEDB.Oracle.1'
   Left = 64
   Top = 80
 end
 object ADOSp: TADOStoredProc
   Connection = ADOConn
   CursorType = ctStatic
   ProcedureName = 'PCKGTRY.GETSIMILAR'
   Parameters = <
     item
       Name = 'p_Name'
       DataType = ftString
       Size = 7
       Value = 'IVANOFF'
     end
     item
       Name = 'p_Birtday'
       DataType = ftDateTime
       Value = 29567d
     end>
   Prepared = True
   Left = 224
   Top = 80
   object ADOSpID: TStringField
     FieldName = 'ID'
     ReadOnly = True
     Size = 18
   end
 end
 object dsADOSp: TDataSource
   DataSet = ADOSp
   Left = 304
   Top = 80
 end
end