DBGrid y Botones

[xangiesaurx]

bitbow, gracias por tu sugerencia, lamentablemente no puedo depender de componentes externos a delphi.
Ahora la duda que me surge es el crear los botones que apareceran en el Grid de manera dinámica, intente este código prueba, pero no me muestra el boton en el frame, alguien sabe el motivo?
Una vez solucionado esto, podré incorporarlo a mi DBGrid

unit Boton;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.StdCtrls,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
 procedure FormCreate(Sender: TObject);
 procedure OnButton1Click(Sender: TObject);
 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

  private
    { Private declarations }

  public
    { Public declarations }

  end;

var
  Form1: TForm1;
  Button1: TButton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Create(self);
  Button1.Parent:= Form1;
  Button1.Left:=5;
  Button1.Top:=200;
  Button1.OnClick:= OnButton1Click;
  Button1.Caption:= 'Hola';
  Button1.TabOrder:=1;
  Button1.Visible:= True;
end;

procedure TForm1.OnButton1Click(Sender: TObject);
begin
  ShowMessage('Presionaste');
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Assigned (Button1) then Button1.Free

end;

end.