procedure TFEditCards.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
Var Style   : Integer;   
Begin
    IF CompareText(Column.FieldName , 'Chk') = 0 Then
     begin
     IF ListSelect.IndexOf(Pointer(QCards.FieldByName('C_ID').AsInteger)) >= 0
        Then Style := DFCS_CHECKED
        Else Style := DFCS_BUTTONCHECK;

    DrawFrameControl(TDBGrid(Sender).Canvas.Handle, Rect, DFC_BUTTON, Style);
    end;

End;


Процедура он CellClick или OnKeyDown--------------------------
------------------
for k:=0 to GCards.SelectedRows.Count -1 do
begin

if GCards.SelectedRows.Count>1 then  DsCard.DataSet.GotoBookMark(pointer(GCards.SelectedRows.Items[k]));
        Value:=GCards.DataSource.DataSet.FieldByName('C_Id').AsInteger;
        // Проверяем, если ли уже такой номер в списке
        // и если нет - добавляем , а если есть - удаляем его из списка.
        IF ListSelect.Count > 0 Then
            IF ListSelect.IndexOf(Pointer(Value)) >=0
            Then ListSelect.Delete(ListSelect.IndexOf(Pointer(Value)))
            Else Begin
                   ListSelect.Add(Pointer(Value));
            End
            Else Begin
                   ListSelect.Add(Pointer(Value));
            End;

 End;
    // Обновляем grid и отображаем количество выбранных записей
   GCards.Columns[0].Grid.Refresh;
end;

procedure TForm1.GV2OnKeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key) = 46 then
          begin
          GridView2.DeleteRow(GridView2.SelectedRow);
          GridView2.Refresh;
          end  else
end;

procedure ShowSaveProgress(start: boolean);
var
    pos:byte;
    progress: TALProgressBar;
    SaveDialog: TForm;
    tm: TTimer;
begin
//
if start=true then
    begin
    SaveDialog:= CreateMessageDialog('This is a test message.', mtInformation, []);
    progress:= TALProgressBar.Create(SaveDialog);
    tm:= TTimer.Create(SaveDialog);
    with SaveDialog do
      try
      Caption := 'Dialog Title' ;
      Width:= 500; Height := 100;
      Top:= 90;

     With progress do
        begin
        Parent := SaveDialog;
        top := 50;    Left := 10;
        Width:=475;   Height:= 20;
        progress.Min:=0;    progress.Max:=100;
        progress.Position:= pos;
        end;
     with tm do
        begin
        tm.Interval:=60;
        tm.Enabled:=true;
        //tm.OnTimer();
        end;
      Case ShowModal of
          ID_YES: ;//çäåñü Âàø êîä ïîñëå òîãî êàê äèàëîã áóäåò çàêðûò
          ID_NO:  ;
      end;
    finally
    tm.Free;
    progress.Free;
    Free;
  end;
    end;
end;

Var
  i:integer;
...

tm.OnTimer:=Action1Execute;
...

procedure TForm1.Action1Execute(Sender: TObject);
begin
  Inc(i);
end;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure MyTimer(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;

implementation

{$R *.DFM}

procedure TForm1.MyTimer(Sender: TObject);
begin
  i:=i+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.OnTimer:=MyTimer;
end;