[[Caral]]

Hola
Veamos la solucion optima:
Creamos un campo ID (unico).
Simplemente comparamos ese campo:

Código Delphi [-]
procedure TFinscripcion.ApeMEExit(Sender: TObject);
begin
    with Query1 do
      begin
        Close; 
        SQL.Text:= 'SELECT ID FROM BDinscripcion WHERE ID = '+QuotedStr(ID1.Text);
       Open;
        if ID1.Text <> Query1.Files[0].AsString then
          begin
            MessageDlg('Datos EXISTENTE',mtError,[mbOk],0);
            NomE.SetFocus;
          end;
      end;
end;

Como veras si el ID no coincide envía el error.
Me parece mas sencillo.
Saludos