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