Set Header Caption With IniFile

Uses
  ... IniFiles;


procedure SetHeader(Grid: TDBGrid; Table: String);
var vIniFile : TIniFile;
    i : integer;
    Str : String;
    DSource : TDataSource;
begin
  vIniFile := TIniFile.Create('C:\Coba.Ini');
  Str := vIniFile.ReadString(UPPERCASE(Table)+
           '-JUMLAH','JMLKOLOM','0');
  DSource := Grid.DataSource;
  for i := 0 to StrToInt(Str)-1 do
  begin
    Grid.Columns.Add;
    Grid.Columns[i].FieldName :=
      DSource.DataSet.Fields[i].FieldName;
    Grid.Columns[i].Title.Caption :=
       vIniFile.ReadString(UPPERCASE(Table)+
       '-HEADER',Grid.Columns[i].FieldName,'');
  end;
end;

Penggunaan
  SetHeader(DBGrid1,'Biodata');

Contoh Isi IniFile

[BIODATA-JUMLAH]
JMLKOLOM=2

[BIODATA-HEADER]
NO_=No
___NIK____=NIK

Keterangan :
BIODATA adalah nama table
BIODATA-JUMLAH adalah jumlah kolom yang ingin ditampilkan
BIODATA-HEADER adalah nama kolom dan caption yang akan ditampilkan