DBGrid1 'e Alan açmak

[ozcank]

Arkadaşlar DBGrid1 e nasıl Title alan açabilirim ? DBGrid1.Columns.Items.Title bu şekildemi eklemeliyim?
ELCEP,ELGRUPI bu alanlara 'Eleman Cep Telefonu','Eleman Grup Ismı' şeklinde DBGrid1 e yazdırmalıyım.

sql:=sql+'ELCEP' + ',';
if listbox2.items='Eleman Grup İsmi' then
sql:=sql+'ELGRUPI' + ',';
end;
sql := copy(Sql ,1, length( sql) -1 ) + ' From ELEMANT ';
query1.sql.Clear;
query1.sql.add(sql);
query1.Open;
DBGrid1.Columns.Items.Title;
query1.Active:=True;
end;

[ozcank]

Arkadaşlar ben bu şekilde yapmaya çalıştım;
1-fakat listeyi sıraya göre eklediğim zaman sorun yok ama Adı,Soyadı ve adresi eklediğim zaman adres kısmını ELADR olarak gösteriyor.
2-Hata veriyor 'List index out
of bounds 1' hatası yardımcı olursanız sevinirim.

if listbox2.items='Eleman Ev Telefonu' then
sql:=sql+'ELEVTLF' + ',';
if listbox2.items='Eleman Ev Adresi' then
sql:=sql+'ELEVADR' + ',';
if listbox2.items='Eleman Cep Telefonu' then
sql:=sql+'ELCEP' + ',';
if listbox2.items='Eleman Grup İsmi' then
sql:=sql+'ELGRUPI' + ',';
end;
sql := copy(Sql ,1, length( sql) -1 ) + ' From ELEMANT ';
query1.sql.Clear;
query1.sql.add(sql);
query1.Open;
query1.Active:=True;
If DBGrid1.Columns.Items[0].FieldName='ELKOD'Then
DBGrid1.Columns.Items[0].Title.Caption:='Eleman Kodu';
If DBGrid1.Columns.Items[1].FieldName='ELADI'Then
DBGrid1.Columns.Items[1].Title.Caption:='Eleman Adı' ;
If DBGrid1.Columns.Items[2].FieldName='ELSOY'Then
DBGrid1.Columns.Items[2].Title.Caption:='Eleman Soyadı';
If DBGrid1.Columns.Items[3].FieldName='ELADR'Then
DBGrid1.Columns.Items[3].Title.Caption:='Eleman Adresi';
If DBGrid1.Columns.Items[4].FieldName='ELEVTLF'Then
DBGrid1.Columns.Items[4].Title.Caption:='Eleman Ev Telefonu';
If DBGrid1.Columns.Items[5].FieldName='ELEVADR'Then
DBGrid1.Columns.Items[5].Title.Caption:='Eleman Ev Adresi';
If DBGrid1.Columns.Items[6].FieldName='ELCEP'Then
DBGrid1.Columns.Items[6].Title.Caption:='Eleman Cep Telefonu';
If DBGrid1.Columns.Items[7].FieldName='ELGRUPI'Then
DBGrid1.Columns.Items[7].Title.Caption:='Eleman Grup İsmi';
end;