tfield field name and display name

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    ds1: TDataSource;
    qry1: TADOQuery;
    con1: TADOConnection;
    dbgrd1: TDBGrid;
    btn2: TButton;
    edt3: TEdit;
    edt4: TEdit;
    edt5: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

where
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  with qry1 do
  begin
    Close;
    sql.Text:= 'select * from dbo.TB_xxxx';
    open;
  end;

  qry1.First;

  edt1.Text:= qry1.Fields[0].Text;
  edt2.Text:= qry1.Fields[0].Value;

  qry1.Fields [ 0 ] .DisplayLabel: = ' number Hey ' ;

  edt3.Text: = qry1.Fields [ 0 ] .DisplayText; // Readonly 

   edt4.Text: = qry1.Fields [ 0 ] .DisplayLabel; // OK No. Hey display name 
   edt5.Text: = qry1.Fields [ 0 ] .DisplayName; // Readonly 

   edt2.Text: = qry1.Fields [ 0 ] .Value;
   edt2.Text: = qry1.Fields [ 0 ] .FieldName; // OK sBH display field name 
End ;

end.