titulo das Colunas do Grid vindo de uma tabela

Pessoal estou usando este código para criar algumas coluna no grid só que está dando erro na linha que eu atribuo o conteúdo do field ao titulo cuja a mensagem é [Error] AlteraValor.pas(56): Incompatible types: ´TColumnTitle´ and ´String´

procedure TFrmmanutencao.FormShow(Sender: TObject);
var
X : integer;
begin
X := 2;
Edtcodpeca.SetFocus;

DmPrincipal.Qry_listaFornecedor.open;

while Not (Dmprincipal.Qry_listaFornecedor.EOF ) do
begin
DBGrid1.Columns.Add;
[b:ec0c4f0449]DBGrid1.Columns[X].Title := Dmprincipal.Qry_listaFornecedor.FieldByName[/b:ec0c4f0449](´Nome_Fornecedor´).asstring;
X := X+1
Dmprincipal.Qry_listaFornecedor.Next;
end;