Разделение строк в StringGrid на группы

[Хохол]

Гляньте картинку. Надо сделать то же самое с помощью нормального StringGrid.
Каким образом можно разделить строки StringGrid на логические группы, как на картинке?

[evg_m]

ГРАФИЧЕСКОЕ выделение групп.
1раскрасить группы разным цветом.
2.добавить новые (пустые|раскрашенные|...) строки между группами
3. отдельные таблицы для каждой группы.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StdActns, ActnList, Menus, ComCtrls, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  r: TStrings;
begin
  r:=TStringList.Create;
  r.Delimiter:='|';
  r.DelimitedText:='Îðãàíèçàöèÿ|Ëèêâèäíîñòü||||Àêòèâû';
  self.StringGrid1.Cols[0]:=r;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  case arow of
  1, 5: begin
    self.StringGrid1.Canvas.Brush.Color:=clBtnFace;
    self.StringGrid1.Canvas.FillRect(rect);
    self.StringGrid1.Canvas.TextOut(rect.Left, rect.Top,self.StringGrid1.Cells[acol, arow]);
  end;
  end;

end;

end.

[Хохол]

evg_m, спасибо.
В первом способе остается проблема названия группы.
В остальных - будет усложнена обработка таблицы (циклы по ней проблематично пускать будет).
Может существуют еще способы - без этих недостатков?
Ну если нет - буду использовать что-нибудь из предложенного.

[evg_m]

В остальных - будет усложнена обработка таблицы (циклы по ней проблематично пускать будет).

Model Модель(Данные массивы классы(объекты) переменные.)
View Представление(StringGrid)
Controller Управление

Циклы надо пускать на ВНУТРЕННИХ данных(в модели).
StringGrid ТОЛЬКО для ПОКАЗА данных ну и ВВОДА данных.
Ввел(StringGrid->массив) Посчитал(массив) Показал(массив->StringGrid).
На StringGrid можно только циклы ПРЕОБРАЗОВАНИЯ.
1.вводимых пользователем данных в о внутреннюю структуру данных
2.отображение расчетных данных

[Smitt&Wesson]

Количество строк и столбцов StringGrid постоянно или будет изменяться?
Спрашиваю не из праздного любопытства, т.к. могу предложить другое решение.

[Хохол]

evg_m, еще раз спасибо.
Smitt&Wesson, количество строк постоянно, количество столбцов изменяется.

[Smitt&Wesson]

Так, понятно. Но у StringGrid очень много недостатков. В частности появление и исчезновение полос прокрутки. Если применять несколько SG, возникает вопрос их синзронизации.
Я бы поступил несколько иначе. Таблицу оставил "как есть", а для навигации ввёл-бы кнопки как у медиаплеера. При нажатии на кнопки "<" и ">" производилась бы запись в соответствующие Edit-ы. Мороки меньше, удобств в работе больше.
Если бы Вы писали на С++, я бы посоветовал воспользоваться разыменованием классов при работе с TEdit, тогда к ним можно было-бы обращаться не как к оддельному компоненту, а как к массиву компонентов.
Есть ли такое в Delphi не знаю.