...
type
TStringGrid = class(Grids.TStringGrid);
TForm1 = class(TForm)
sgDetalle: TStringGrid;
...
implementation
procedure TForm1.btnDeleteRowClick(Sender: TObject);
begin
if MessageBox(0,'¿ Elimina la línea actual ?','', MB_ICONQUESTION+MB_YESNO) = IDYES then
sgDetalle.DeleteRow( sgDetalle.Row );
end;
...