ActiveDelphi

[thaita]

Pessoal,
Criei o procedimento abaixo, para mudar os títulos das colunas do DBGrid, e no evento On Show do Formulário entrei com o procedimento, mas esta dando um erro "Argument out of range". Alguém pode me ajudar. A tabela é listada também no evento ON SHOW-> FPessoa.Listar(Datasource1);
MudaTituloColuna;

procedure TPageCadastroPessoa.MudaTituloColuna;
begin

// dbgrid1.columns(0).Caption="Código" ;
// dbgrid1.columns(0).Width=1000;
// dgrid1.columns(0).Alignment = 'dbgCenter ' ;
DBGrid1.Columns[0].Title.Caption := 'Código';
DBGrid1.Columns[1].Title.Caption := 'Tipo de Pessoa';
DBGrid1.Columns[2].Title.Caption := 'Nome';
DBGrid1.Columns[3].Title.Caption := 'Data Nasc.\Reg.';
DBGrid1.Columns[4].Title.Caption := 'CPF\CNPJ';
DBGrid1.Columns[5].Title.Caption := 'Cidade';
DBGrid1.Columns[6].Title.Caption := 'Bairro\Distrito';
DBGrid1.Columns[7].Title.Caption := 'Estado';
DBGrid1.Columns[8].Title.Caption := 'Telefone';
DBGrid1.Columns[9].Title.Caption := 'E-mail';
DBGrid1.Columns[10].Title.Caption := 'Ativo';
DBGrid1.Columns[11].Title.Caption := 'Início Contrato';
DBGrid1.Columns[12].Title.Caption := 'Fim Contrato';

end;
PODEM ME AJUDAR???????