Eliminar Registro (Validar)

[@-Soft]

hola

podria se de esta forma :

Código Delphi [-]
procedure TfrmSector.SpeedButton3Click(Sender: TObject);
var
  xreccount : integer;
begin
xreccount := DatMod1.TSector.RecordCount;
if xreccount <= 0 then
begin
   ShowMessage('No hay mas registro en el sistema.');
   Exit;
end;
if Application.MessageBox('¿ Seguro que quieres eliminar este registro ?','Información',
   MB_YESNO+MB_ICONQUESTION) = IDYES then begin
   DatMod1.TSector.Delete;
end;
    if DatMod1.TSector.RecordCount = xreccount then
    begin
       ShowMessage('El registro no se ha podido eliminar, contacte a su administrador de sistema.');
       Exit;
    end;
end;

Salu2