Insertar Boton en StringGrid,

[subzero]

rojo raton, gracias por tus aportes mi problema no esta en borrar sino en cuando se presione el boton realice el proceso, logre que lo(s) mostrara pero lo que no he podio es con el click para que usando se envie a un procedimiento o simplemente me muestre una ventana algo como un ShowMessage.... algo com insertar el evento ya he realizado un procediiento y esto es lo utlimo que hice.

Código Delphi [-]
var cont : integer;
...
while(Not EOF)do
begin
   btn := TButton.Create(nil);
   btn.Caption:= 'Quitar';
   btn.Width:= 87;
   btn.Parent:= sgcodigos;
   btn.BoundsRect:= sgcodigos.CellRect(4, cont);
   btn.OnClick := elclick;
   cont := cont + 1;
end;
.....
.....
procedure Tfproductos.elclick(Sender: TObject);
begin
   ShowMessage('Presiono Click')
end;