[Bit]

Здравствуйте.
Имеется DBGrid который отображает данные из нескольких таблиц при помощи переключения DataSourse.
Как перевести названия столбцов?
У меня вот такая процедура не работает:

Код:

procedure TForm1.TovarClick(Sender: TObject);
begin
 DBGrid6.DataSource:=DataSource6;
 Table6.FieldByName('N_meb').AsString:= '№ мебели';
 Table6.FieldByName('Naimenovanie').AsString:= 'Наименование';
 Table6.FieldByName('Cena').AsString := 'Цена';
 Table6.FieldByName('N_pro').AsString := '№ производителя'; 
end;

Что я неправильно сделал?