Header

procedure Form1_TableGrid1_OnChange (Sender: TObject);
var
   i, c: integer;
begin
   Form1.TableGrid1.Options := Form1.group1Grid.Options or goRowResizing;
   c := Form1.group1Grid.Columns.Count - 1;
   for i := 0 to c do
   begin
      Form1.TableGrid1.Columns[i].Header.Multiline:=True;                    
      Form1.TableGrid1.Columns[i].VerticalAlignment := taAlignTop;
      Form1.TableGrid1.Columns[i].WrapKind := wkWordWrap;                  
   end;
end;