É mais simples do que voce pensa. procedure TForm1.Button1Click(Sender: TObject);
begin
DBGrid1.Columns[0].FieldName := 'PAPEL'; // nome verdadeiro do Campo da sua tabela
DBGrid1.Columns[1].FieldName := 'COD'; // nome verdadeiro do Campo da sua tabela
DBGrid1.Columns[2].FieldName := 'NUM'; // nome verdadeiro do Campo da sua tabela
DBGrid1.Columns[0].Title.Caption := 'BOLA'; // novo nome do campo PAPEL será BOLA
DBGrid1.Columns[1].Title.Caption := 'PRATO'; // novo nome do campo COD será PRATO
DBGrid1.Columns[2].Title.Caption := 'SABONETE'; // novo nome do campo NUM será SABONETE
end; obs: Os valores de Columns representa os indices dos campos de sua tabela ... começando por 0 abraço muito Obrigada funcionou perfeitamente