Программно добавить поле в DBEdit

procedure TFEditTchmi.TNChange(Sender: TObject);  //FEditTchmi-это форма
begin
  if Tchm.Checked then   //Tchm-это RadioButton
  begin
    TN.DataSource := DM1.DSTchm; //TN-это DBEdit
    TN.DataField := String(TN);  //пробовал и без String, ошибка несоответствия полей
  end;
end;

procedure TFEditTchmi.TchmClick(Sender: TObject);
begin
 
if
 Tchm.Checked = true then
 DM1.ADOQueryTchm.SQL.Clear;
 DM1.ADOQueryTchm.SQL.Add('SELECT TN AS [Таб №], Name1 AS [Фамилия] FROM Tchm ORDER BY Name1');
 DBGrEditTchmi.DataSource := DM1.DSTchm; //DBGrEditTchmi-это дбгрид
 DM1.ADOQueryTchm.Open;
end;
 
procedure TFEditTchmi.TchmpClick(Sender: TObject);
begin
if
 Tchmp.Checked = true then
 DM1.ADOQueryTchmp.SQL.Clear;
 DM1.ADOQueryTchmp.SQL.Add('SELECT TN AS [Таб №], Name1 AS [Фамилия] FROM Tchmp ORDER BY Name1');
 DBGrEditTchmi.DataSource := DM1.DSTchmp;
 DM1.ADOQueryTchmp.Open;
end;

TN.DataField := 'TN';

DM1.ADOQueryTchm.SQL.Add('SELECT TN , Name1 AS [Фамилия]FROM Tchm ORDER BY Name1');

if Tchm.Checked = true then
TN.DataSource := DM1.DSTchm;
TN.DataField := 'TN'; // Вот здесь проблема
end;

TN.DataSource := DM1.DSTchm; //привязали TN к источнику данных DM1.DSTchm

object DSTchm: TDataSource
  DataSet = ADOQueryTchm     // А источник данных DSTchm привязан к ADOQueryTchm

procedure TFEditTchmi.TNChange(Sender: TObject);
begin
 if Tchm.Checked = true then
  begin
    ShowMessage('Источник не DSTchm');
  end;
end;

procedure TFEditTchmi.TNChange(Sender: TObject);
begin
 if Tchm.Checked = true then
begin
TN.DataSource := DM1.DSTchm;
end
else if  TN.DataSource <> DM1.DSTchm
  then
  begin
    ShowMessage('Источник не DSTchm');
  end;
end;

DataSource := DM1.DSTchm;