Components for Delphi and C++ Builder.

procedure TForm1.Button1Click(Sender: TObject);
begin
  DBGridEh1.ClientHeight :=
    MemTableEh1.RecordCount * DBGridEh1.DefaultRowHeight +
    MemTableEh1.RecordCount +  // Extra Height for row lines
    TDBGridEhCrack(DBGridEh1).RowHeights[0] + //Title height
    + 1 // Title line
  ;
end;

type
  TDBGridEhCrack = class(TDBGridEh);