var

  MainForm      : TCLForm;

  ProGridCari   : TCLProGrid;

  mainVertSB    : TclVertScrollBox;

  ScaledLayout  : TCLScaledLayout;

  ReportQuery   : TclSqlQuery;

  CariFields    : TClStringList;

function MakeTitleFromField(AField : String) : String;

var

  p : Integer;

{

  Result = AField;

  p = Pos('_', Result);

  while (p > 0)

  {

    Delete(Result, p, 1);

    Insert(' ', Result, p);

    p = Pos('_', Result);

  }

  Result = AnsiUpperCase(Result);

}

void SetupCariGrid;

var

  c : Integer;

{

  if (ProGridCari == nil)

  {

    ProGridCari = MainForm.AddNewProGrid(mainVertSB, 'ProGridCari');

    ProGridCari.Align = alClient;

  }

  ProGridCari.RowCount = 0; 

  ProGridCari.ColumnCount = CariFields.Count;   

  ProGridCari.RowCount    = 2;   

  ProGridCari.FixedRows   = 1;

  ProGridCari.Options.Editing.Enabled = False;

  for (c = 0 to (CariFields.Count - 1))

  {

    ProGridCari.Cells[c, 0] = MakeTitleFromField(CariFields.Strings[c]);

  }

}

void ExtractMetadataFromQuery;

var

  i : Integer;

{

  if (ReportQuery == nil) { exit; }

  

  CariFields.Clear;

  for (i = 0 to (ReportQuery.FieldCount - 1))

  {

    //CariFields.Add(ReportQuery.FieldName(i));

    // Tam burada SQL den dönmüş olan verideki field alanlarını sütun ismi olarak //ayarlamak istiyorum ama sorgunun textine ulaşamadım

  }

}

LSourceQuery = Clomosy.DBSQLServerQueryWith(AQuery);

    Result = LSourceQuery;

çıktı olarak buradan aldığımı ReportQuery olarak kullanıyorum

var

  MainForm      : TCLForm;

  ProGridCari   : TCLProGrid;

  mainVertSB    : TclVertScrollBox;

  ReportQuery   : TclSqlQuery;

  CariFields    : TClStringList; 

  HamBaslik     : String;

function MakeTitleFromField(AField : String) : String;

var

  p : Integer;

{

  Result = AField;

  p = Pos('_', Result);

  while (p > 0)

  {

    Delete(Result, p, 1);

    Insert(' ', Result, p);

    p = Pos('_', Result);

  }

  Result = AnsiUpperCase(Result);

}

void GridDoldur;

var

  col, Satir : Integer;

  FieldName : String;

{

  if (ReportQuery == nil) { exit; }

  if (not ReportQuery.Active) ReportQuery.Open;

  if (ProGridCari == nil)

  {

    ProGridCari = MainForm.AddNewProGrid(mainVertSB, 'ProGridCari');

    ProGridCari.Align = alClient;

    ProGridCari.Options.Editing.Enabled = False;

  }

  ProGridCari.ColumnCount = CariFields.Count;

  

  // 1. BAŞLIKLARI YAZ

  for (col = 0 to CariFields.Count - 1)

  {

    HamBaslik = CariFields.Strings[col]; 

    ProGridCari.Cells[col, 0] = MakeTitleFromField(HamBaslik); 

  }

  // 2.  DÖNGÜYLE DOLDUR

  ProGridCari.RowCount = 1; 

  

  if (ReportQuery.Found)

  {

    ReportQuery.First;

    Satir = 1; 

    

    while (not ReportQuery.Eof)

    {

      for (col = 0 to CariFields.Count - 1)

      {

        FieldName = CariFields.Strings[col];

        ProGridCari.Cells[col, Satir] = ReportQuery.FieldByName(FieldName).AsString;

      }

      

      Satir = Satir + 1;

      ReportQuery.Next;

    }

  }

  

  ProGridCari.AutoSizeColumns(True, 100);

}

{

  MainForm = TCLForm.Create(Self);

  mainVertSB = MainForm.AddNewVertScrollBox(MainForm, 'mainVertSB');

  mainVertSB.Align = alClient;

  

  CariFields = Clomosy.StringListNew;

  

  // Alanları Belirle

  CariFields.Add('OGRENCI_NO');

  CariFields.Add('AD_SOYAD');

  CariFields.Add('NOT_ORT');

  

  ReportQuery = Clomosy.DBSQLiteQueryWith('SELECT 101 as OGRENCI_NO, ''Ahmet Yilmaz'' as AD_SOYAD, 85 as NOT_ORT'); 

  ReportQuery.Open;

  GridDoldur;

  

  MainForm.Run;

} 
Test edebilir misin?? 

  CariFields.Add('AD_SOYAD');

  CariFields.Add('NOT_ORT');

Yani sorgunun içerisindeki field alanındaki "_" leri " " ye çevirerek kullanmak istiyorum.
"AD_SOYAD" --> "AD SOYAD" şeklinde